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ABSTRACT 


A thermal design procedure for air cooled electronic 
circuit boards has been developed for the Hewlett-Packard 
Ilodel 9845 desktop computer. The system of interactive 
programs, called THERMELEX, performs thermal analysis of 
printed circuit boards to predict either the junction tem- 
peratures for given power disSipation levels or the maximum 
power levels for given junction temperature limits. The 
system includes the following features: totally interactive 
with all input in question and answer format, simple data 
verification and correction capabilities, ability to store 
and retrieve circuit board descriptive data totally under 
program control, wide variety of output formats including 
tabular and graphical. By using internal selection of heat 
transfer correlations, the THERMELEX system depends only on 


input of physical parameters for thermal predictions. 
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A. BACKGROUND 

Electronic components generally convert a significant 
fraction of the input power into internal joulian heating. 
When the components are large, widely separated, and air is 
permitted to circulate freely among them, this heat generated 
within the component is transferred to the environment through 
natural convection. Indeed, millions of pieces of home elec- 
tronic equipment have operated reliably for years depending 
only on natural circulation for cooling. The major emphasis 
over the last 15 years has been a continuing effort toward 
a reduction in physical size of components and increased 
component density within electronic equipment. The military 
1S particularly in need of smaller, more complex, yet relia- 
ble equipment that must often be sealed from an extremely 
hostile environment. This results in the need for more 
efficient cooling methods. 

The age of large scale integration (LSI) is here. 
Although the power dissipated in each active junction within 
a component has greatly decreased, the large number of heat 
sources on each chip has created serious heat removal 
problems. There is a genuine need for electronic designers 


to not only be aware of the problems associated with higher 
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temperatures, but they must also be prepared to solve those 
problems. References [1] through [190] are a sampling of 
the many sources that indicate the increased emphasis on 
cooling problems throughout the electronics community. 

The need to operate electronic equipment with maximum 
junction temperatures below those levels that result in 
failure is well recognized, but even moderately high temper- 
atures in electronic components result in progressive 
deterioration and reduced reliability. A generally accepted 
thumb rule is: for every 10 deg C increase in junction 
temperature, the lifetime of a component will decrease by 
one-half. [3, 7] The increasing costs associated with each 
failure make it imperative to address reliability during 
the equipment design phase and to provide sufficient cooling 
to maintain temperatures as low as practical. 

There are many methods of removing the heat dissipated 
within electronic components. These methods include the 
natural air convection previously mentioned, thermo-electric 
devices, heat pipes, cold plates and even complex refrigera- 
tion systems which use pumped liquid coolants [8]. The 
complex systems required for these solutions can lead 
to lower reliability through increased probability of 
failures in the cooling system. While many of these methods 
can allow extremely high power densities for specific appli- 


cations, the most widely used method for cooling of components 
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mounted on printed circuit boards is forced air cooling. 

Air is readily available, abundant, non-corrosive, non-toxic, 

non-flammable, dielectric, and is easily pumped using readily 

available fans and blowers. For those situations where there 

is a need to seal the equipment, interior cooling air is often 
circulated through heat exchangers. 

All too often the problem of cooling the electronic com- 
ponents is attacked after the circuit boards have been designed 
or even produced and assembled [9]. In some cases, the need 
for increased cooling is recognized only after repeated 
failures in service have resulted in unhappy users and ex- 
cessive repair costs. At best both the electronic design and 
the thermal design progress concurrently but are worked on by 
separate design groups. These groups may have conflicting 
range goals that can interfere with the important long range 
goal of reliability. 

Many of the efforts to directly involve the electrical 
designer in the thermal problems are directed towards overall 
system cooling. Reference [11] details a thermal design 
program called VENTBOX. VENTBOX treats a cabinet enclosure 
with entire circuit boards modeled as distributed heat 
sources. This program fails to address the problems of in- 
dividual components and, therefore, is unable to analyze 
phe circuit board. 

Electronic circuit analysis programs are often utilized 


in the thermal analysis of circuit boards [12 and 13]. This 
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technique requires the development of an equivalent thermal 
circuit, usually by a packaging engineer, and thus the thermal 
design 1s removed from the hands of the electronic designer. 
Reference [14] details a thermal analysis program for circuit 
boards that is much more accessible to an electronic designer 
Since the inputs are physical dimensions and types of compo- 
nents rather than equivalent thermal network parameters. 

All these programs share a major weakness in that they 
depend on a large general purpose computer facility. This 
not only can result in excessively long turn-around times 
in batch processing, but also the expense of computer time 
may become a factor. In addition, the input data typically 
consists of long lists of numbers that must be in the proper 
format with the correct option selection codes. Likewise 
the output also consists of even longer lists of numbers 
with the key information hidden in their midst. 

One solution to automated thermal design and analysis 
of avionics systems is being developed as a joint project 
by the Air Force Flight Dynamics Laboratory at Wright 
Patterson Air Force Base and Boeing Aerospace Company. The 
ITAD (Integrated Thermal Avionics Design) system 1s expected 
to include many existing analysis programs and a large ever 
growing data base containing reliability parameters. It 
is anticipated that ITAD will be accessed by user through 


both batch methods and interactively through color graphics 
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terminals. The scope of this project is enormous and the 
benefits to the system designer will be many, provided he 
has access to the large computer at Wright Patterson Air 
Remee Base {[15, 16]. 

Another solution on a much smaller scale is to create 
a program for a compact, stand alone desktop computer that 
is easily accessible to the designer of electronic circuit 
boards. Such a system, if interactive and "friendly" to 
the casual user, would allow rapid evaluation of various 
circuit board designs at the conceptual level. Rejection 
of those designs with poor thermal characteristics could 
then occur before they leave the drafting table saving both 


future efforts and dollars. 


B. OBJECTIVES 

The main objective of this thesis was to develop an 
interactive thermal analysis program utilizing the Hewlett- 
Packard 9845 desktop computer. It was considered important 
to include the following features: 

imucumolicrty Gf Operation: All data input and control 
of program flow are done in a question and answer format in- 
cluding specific instructions with each question. 

PpmeGeaonical data checking: Display circuit board 
replicas on the screen both for verification of input and 


to provide a more useful form of output. 
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3. Data correction capabilities: Use interactive methods 
to allow correction of portions of the data without the need 
to repeat all the input. 

4. Automatic storage and retrival of data: Circuit board 
descriptions should be written to and read from mass storage 
devices using simple questions and answers rather than requir- 
ing specific knowledge of operations of the devices. 

5. Analysis methods hidden: Various empirical heat 
transfer correlations should be used based on the physical 
descriptions and the user should be relieved of the need to 
make decisions concerning the details of the heat transfer 
analysis methods. 

6. Sensitivity analysis: Allow automatic parameter 
changes to investigate the effects on the thermal performance 


of these changes with plotted data. 
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II. DESCRIPTION OF THE THERMELEX SYSTEM 


A. GENERAL 
1. The Computer 

The name THERMELEX will be used to refer to the 
system of interactive programs created to perform thermal 
analysis of air cooled electronic circuit boards. The 
programs are written for the Hewlett-Packard Model 9845 
desktop computer using the Hewlett-Packard extended version 
of the basic language. A sophisticated operating system 
hides the complexity of the 9845 from the user and provides 
protection from his mistakes yet provides the power and 
flexibility needed for application programs such as the 
THERMELEX system. 

The computer used to create and debug THERMELEX is 
the 9845A with 64 k bytes of read/write memory (option 203), 
internal printer (option 500) and graphics package. In 
addition, dual tape drives and dual floppy disks were utilized 
in the development of the system. These additional mass 
storage devices provided considerable increase in the con- 
venience and speed of storage and retrieval operations but 
THERMELEX is designed to operate with only the standard tape 
drive. Recent advances in the internal electronics have 
resulted in this model being superseded by the 93845B model 


with larger memory capabilities and several other features. 
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THERMELEX is available in either an A-version or B-version 
for use in the respective model of the 9845. 

Figure 1 shows the 9845A but the 9845B is identical 
in physical appearance except for the name tag. The screen 
at the top will display the messages from the system to the 
user, what is typed by the user and the output from the 
THERMELEX programs. This output may be printed on the screen 
in what is known as the alpha mode or it may be presented as 
pictures and words from the graphics mode. Output of either 
mode may also be produced on the thermal printer above the 
keyboard in the inclined area. Directly underneath the 
screen there are four pull-out reference cards that explain 
error messages and other operating conditions that may occur. 
At the extreme upper right corner of the sloping section is 
the standard tape transport (:T15) for mass storage of 
programs and data. 

The keyboard contains not only a set of standard 
typewriter keys but also several other groups of keys that 
are important to THERMELEX. The numeric keys at the lower 
right allow easy entry of numbers as an alternative to 
those in the alphanumeric group of keys and allows numeric 
calculations to be performed even during execution. Between 
these groups are the gold colored program control keys. All 
responses to questions are followed by pressing the CONT key 


at the bottom of this column of keys. The group of special 
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function keys in the upper right are defineable by the user 
or from program control. They are also used in THERMELEX 
@S priority interrupts to simplify the input of data. This 
use of these keys is further explained later. The final key 
of interest to the THERMELEX system user is the AUTOST key 
in the lower right corner of the EDIT/SYSTEM FUNCTIONS group. 
This key allows automatic loading and execution of the first 
program in the THERMELEX system. Explanation for its use 
is found in Appendix 1, the User Instructions. For further 
explanations of the features of the Hewlett-Packard model 
9845 computer, see Ref [17] supplied with the computer. 
2. #THERMELEX System 

Due to the memory limitations of the 9845A, THERMELEX 
is divided into three major programs which are generally 
brought into case from mass storage under program control as 
they are needed. However, each program is designed to stand 
alone which can allow the experienced user to bypass some of 
the questions and answers required to help the inexperienced 
users. AUTOST is the first program of the three; here several 
pages of user instructions (see Appendix 1) may be printed, 
the special function keys are defined and the user is directed 
along a path to follow towards the other programs. In BOARDS, 
the circuit board descriptive data is entered, verified and 
stored on any one of the mass storage devices. The user may 


also elect to produce a printed copy of the input data for 
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his records. The THERML program performs the thermal analy- 
sis and provides output in various tabular or graphical forms. 
These three major programs will be described in more detail 
in the pages that follow. 

There are also several smaller files in the system. 
BDSKEY and STDKEY alter the definitions of the special 
function keys. TNAMES contains a listing of all variable 
names and program section names with explanations to aid in 
any future modifications of the THERMELEX system. DEMO-P 
and DEMO-T are data files containing example circuit board 
descriptive data to allow demonstrations of the system and 


to help the new user become familiar with the capabilities. 


Be AUTOST 
1. General 

AUTOST isthe driver program for the system. This 
name allows the program to be automatically loaded and exe- 
Guted if the AUTOST key is latched down and if the tape 
containing the THERMELEX system is in the standard right- 
hand tape drive (:T15) when the main power switch is turned 
on. Regardless of how the program is loaded, the first 
question will be concerning the location of THERMELEX. The 
program will ask which mass storage device contains the 
system since this is necessary for correct program control. 
At this point, the program defines the default mass storage 


device using the "MASS STORAGE IS "---" command, and the 
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default mass storage device should not be altered while using 
DEERME LEX. 
Zee aseructions 
AUTOST will provide a printed set of user instruc- 
tions either on the screen in short segments or on the thermal 
printer in 8.5 by 11 inch pages. These instructions present 
an overall system view and are intended to familiarize the in- 
experienced user and supplement the extensive instructions 
and prompts that are presented on the screen in all sections 
oe) THERMELEX. 
3. Special Function Keys 
AUTOST redefines the special function keys as required 
for the system and can provide a paper key-code overlay as a 
substitute for the plastic model (Hp Part #7120-6164). Figure 
3 shows both styles. The paper style may be used as a guide 
for filling in the appropriate blanks on the plastic version. 
wee 6 OBeELOon List 
Finally, AUTOST provides a list of options for the 
user to select from. He may load either of the other two 
programs in THERMELEX or produce a complete copy of the 
programs in the system through selection of the appropriate 
number from the menu of options. This technique is employed 
throughout the system whenever possible because of the sim- 
plicity involved in entering a single number over other 


methods of option selection. 
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5. The Copy Option 

The copy option is included as a built-in feature 
Since there are many separate files in THERMELEX and a 
separate command is required for each file to be copied. 
Any mass storage device may serve as the destination for 
the system; however, when copying to tape, it is suggested 
that it be blank due to the number of open blocks required. 
Following completion of this option, program control 
Bevenieas FO Option list. _It is expected that the first 
option (keyboard entry of circuit board description) is the 
most likely to be used and the description that follows 


assumes this path. 


C. BOARDS 

1. General 

The major purpose of the BOARDS program in the 

THERMELEX system is to provide a simple method for input 
of the descriptive data needed in THERML for the creation 
of the thermal model and the analysis. This data includes 
the geometric and material properties of the circuit board 
as well as what components are on the circuit board. These 
components are limited to DIP'sS (Dual Inline Packages) and 
chip carriers (FLAT Packs). The thermal model used for the 
analysis of the board is a finite difference scheme and the 
physical location of the components is approximated by the 


locations of the finite regions created by the user. 


24 





The descriptive data may be entered from the keyboard 
in response to simple questions; or, it may be retrieved from 
mass storage data files previously recorded using BOARDS. 

The instructions included as Appendix 1 provide specific 
explanations of how to use this program. 
2eeeenecking of Input Data 

All input data is displayed using either the graphics 
capabilities of the 9845 or with printed lists produced on 
the screen or paper. The user may, therefore, easily verify 
the validity of the data he has entered. This feature is 
included whenever possible throughout THERMELEX. 

Beeecotmrecceion of Input Data 

There are many opportunities to change the descriptive 
data uSing the same question and answer format of interactive 
programming. At no time is it necessary for the user to have 
extensive knowledge of the program's internal workings or the 
machine level commands performed within the program. As a 
further means of correcting past errors, the backup feature 
built into the THERMELEX system makes it extremely easy to 
return to previous questions. This feature is accessed by 
depressing the special function key (Ko) in place of a 
response to a request for input. Program control will jump 
back to the previous question to allow re-entry of data. 
Repeated use of Ko allows backing up to any desired point 


and resumption of program flow from that point. 
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Se The Circuit Board 

To describe the geometry of the circuit board under 
investigation, the user must enter the length, width, thickness 
ena the thermal conductivity of the circuit board. With no 
input, the thermal conductivity will be assigned a default 
value of 0.29 Watts/m-degC, a representative value for the 
bonded glass laminates generally used for construction of 
circuit boards. The length parameter is defined to be in the 
direction of air flow regardless of which dimension is the 
largest. 

In order to create the finite difference thermal 
model, the board must be divided into logical regions by 
placing any number of equally spaced vertical lines and any 
number of equally spaced horizontal lines on the board up to 
a total of 50 regions. More regions would be possible in the 
9845B due to the larger memory capacity but this would 
require some program changes. Each region will either contain 
a component assumed to be centered in the region or will be 
empty. Since there may be regions with no components, there 
is no unique set of descriptive data for a given circuit 
board design. The user is encouraged to try different com- 
binations of horizontal or x regions and vertical or y 
regions to describe a circuit board. Figure 4 shows two 
such possibilities for a board with six 14 pin DIP's. Both 
the six region model and the 42 region model describe the 
same board. Experience is helpful in making decisions as 
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to how to divide the board and some boards may not fit into 
the constraints imposed by THERMELEX, but many will. 

5. The Components 

Each of the defined regions will be empty or contain 

Smesot the following components: 14, 16, 24, 40 pin DIP's 
with either vertical or horizontal orientation and 16, 24, 
40, 64 pin chip carriers. These components will be assured 
to be centered in the region (with the exception of the 
40 pin DIP which will be assumed to occupy two regions). 
The input of component type for each region is via the 
Special function keys. A special paper key-code overlay for 
use in this component input section may be provided if a 
plastic version is not available, see Figure 5. Asa 
flashing cross appears in each of the regions, the appro- 
priate special function key is depressed. This defines the 
type of component, length, width, orientation and draws the 
component on the screen for visual verification of correc- 
tions. After all regions have been defined, corrections 
are possible through removal and replacement of components 
uSing the same special function keys. 

6. Thermal Conduction Paths 

Each of the defined regions on the board may exchange 

energy with the adjacent regions via conduction through the 
board itself and any thermally conductive material added to 


the board such as electrical leads. In addition, many circuit 
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board designs involve metal conduction rails that provide 

both mechanical support and a method to transport the heat 

from the componets. There are provisions in BOARDS to model 
either the electrical leads or the conduction rails. For 
circuit boards without conduction rails, the user specifies 

the average lead width (mm), thickness and thermal conductivity 
of the lead material. These geometric parameters are used 

to determine the thermal resistance of a single lead connect- 
ing the region centers or nodes. 

When conduction rails are included on the circuit 
board, the effects of the electrical leads are ignored. To 
allow modeling of rails that may have different widths, the 
concept of a conduction path unit (CPU) is introduced. A 
CPU is defined to be .1 mm in width but the user specifies 
the thickness and conductivity of the material. These para- 
meters are used to determine the thermal resistance of a 
single CPU connecting the region centers. 

With the thermal resistance of single CPU or elec- 
trical lead determined, the user need only specify the number 
of such resistances that connect the circuit board regions. 
Bemeexample, if a conduction rail is 5.8 mm in width, it may 
be modeled as containing 58 CPUs. While the concept of 
CPUs is totally artificial, this concept does allow modeling 
of the Navy Standard Electronic Module (SEM) and Improved 
Standard Electronic Module (ISEM) for those situations when 
these modules are used in forced air cooled systems. 
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With the physical description of the circuit board 
now complete, the user may elect to produce a picture of 
ene c#rcuit board from a dump of the graphics to the internal 
printer. Pressing special function Key 3 will produce a 
picture such as Figure 6. This picture may be used as a 
final verification of the validity of the circuit board 
description that has been entered. The remaining descrip- 
tive data to be entered concerns the component parameters. 

7. Temperature or Power Input 

The user must specify either the average power to be 
dissipated in each component or the maximum junction tempera- 
ture. When power levels are specified, the steady state 
junction temperatures will be calculated in THERML. When 
junction temperatures are specified, the maximum allowable 
component power levels will be calculated. In either case, 
the user must also specify a case to junction thermal resis- 
tance for each component. This is usually supplied by the 
manufacturer and provides the means in the thermal model to 
link the component power level and junction temperature to 
the case surface temperature. Figure 7 shows the data 
summary sheet provided after the data has been entered and 
verified. 

8. Storage of Data 
Alehough it is possible to load THERML and perform 


the thermal analysis directly since all data is passed 
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through a common block, it is strongly urged that the circuit 
board description be stored on mass storage. A few simple 
answers allows the storage to tape or disk for retrieval at 
a later time. This data file may be accessed, verified, 
altered and recorded back to mass storage using BOARDS to 
investigate the effects that changes in design have on the 
temperatures or power levels obtained in THERML. Both 
Appendix 1 and the program provide easy to follow instructions 
for retrieval of previously recorded descriptive data files. 
Totally under program control, the third major program 
in the THERMELEX system, THERML will be loaded at the direction 


of the user and execution started at the proper entry point. 


Be LHERML 
1. . General 

Recall from the previous discussion that BOARDS es- 
tablishes all the parameters that describe the circuit board. 
While the major purpose of THERML is to analyze the thermal 
performance, it must first establish the parameters that 
describe how the circuit board is installed and cooled, such 
as the spacing between boards, volumetric air flow per board 
and inlet temperature of the cooling air. Using the total 
set of board and installation parameters, the thermal model 
is set up, solved and the results presented. 

The approach taken in the thermal analysis is to 


construct an approximate thermal network [7] for every path 
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of heat transfer from the components and the circuit board. 
The thermal resistance (R) for each path is calculated from 
the set of parameters and if a temperature difference (AT) 


for that path is known, the expression: 


Os gam 


will determine the rate of heat transfer (Q) for that path. 


When the rate of heat for a given path is known, the expression: 


AT = iO) sete) 


will determine the temperature difference. 

An overall heat balance for the components and the 
circuit board, with all the heat that is generated going into 
the cooling air stream, is used to determine either the steady 
state junction temperatures (when component power levels are 
specified) or the component power levels (when the junction 
temperatures are specified). 

2. Air Flow - Thermal Model 

The cooling air flow is assumed to come from an in- 
finite heat sink which supplies air at a constant inlet 
temperature. All the heat dissipated within the components 
is assumed to enter the air stream with no heat conducted 
into the card guides or electrical connectors. These guides 
and the mechanical support sections of the connectors are 
typically made of plastic with high resistance to heat 
transfer and this assumption leads to conservative estimates. 
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As the air travels from inlet to outlet, it is assumed 
to remove heat from both the component surfaces and the surface 
Se Ehe Circuit board. It is further assumed to travel in air 
lanes defined by the height of each region perpendicular to 
eer flow and not mix until the outlet. As the air removes 
Beec trom Gach region, the local air temperature (Tair) will 


increase. The process is described by the general equation: 


Q added in AX 


= talc at xX + Xk = Tai ee PS 
= all gs (Mai r)ee (Chair) 


where Mair = Mass flow rate of air [kg/sec] 

Cpair = Heat capacity of air [J/kg-degk] 

AX = length of a region in the air flow direction 
This process results in the temperature of the cooling air 
stream being modeled as a series of steps as the air travels 
from inlet to outlet within an air flow lane. The local air 
temperature and the convective resistance determine the local 
convective heat transfer. 

The air velocity is determined from the physical 
description entered by the user and this air velocity is 
used to determine the convective resistances. Recall that 
circuit board spacing (2b), board height (Hb) and volumetric 
air flow rate (Fair) are part of the descriptive data set 
previously entered. With no components present, the air 


velocity (Vair) would be defined by: 


Vair = __rair___ 
G75) x ((Hby 
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However, the components tend to reduce the air flow area 
(Aair) by blockage. The average blockage area is determined 
by calculating the average number of components in a vertical 
column of regions perpendicular to the air flow. In addition, 
the average width (Wavg) and height (Havg) of the components 


is determined and the average air flow area calculated using: 
Aair = (Zb) x (Hb) - (Navg) x (Havg) x (Wavg) 


This area is used to determine the air velocity from: 


Fair 
Aair 





Vvarr = 


In addition the average area is used to determine the wetted 
perimenter (Perim) of the air duct formed by the boards 


Becoraing to: 


Perim = 2Hb + 2Zb + 2 (Navg) x (Havg) 


The hydraulic diameter (Dh) is therefore: 


4 Adair 


Dh = Perim 


which is also used in calculations of some of the heat. 
transfer coefficients. 
3. Components - Thermal Model 
All heat generated within the components must be 
transferred away through conduction to the board, radiation 
to the board and to some radiation sink, and through con- 
vection to the cooling air. Figure 8 shows each of the 


thermal networks for heat transfer. 
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DIP components are usually mounted by soldering the 
electrical leads to the circuit board electrical conductors 
(Figure 9). These connector pins also act as low resistance 
thermal conductors between the component and the circuit 
board. The total thermal resistance from the component to 
the circuit board may be calculated from the cross sectional 
eer OL Cach pin (Axpin), the length of the pin (Lpin), the 
thermal conductivity of the pin material (Kpin) and the 


number of pins (Npin) using the expression: 


Lpin 


oe = (Gin Pen pines (Npin) 


There is also a small gap between the bottom of the 
component case and the circuit board. Figure 9 shows the 
mounting for DIP cases where this gap is on the order of 
one mm; for chip carriers, this distance is smaller yet. 

Due to the small distance (Dgap) involved, it is assumed 
Gnae nO COnvection occurs in this gap and that the conduc- 
tive resistance of the air gap (Rgap-cond) may be calculated 


from the expression: 


Dgap 


Rgap-cond = (Kair) x (Agap) 


where Agap represents the surface area of the bottom of the 
component and Kair represents the thermal conductivity of 
the air. 

The component case will also radiate energy to the 


circuit board. Assuming the gap to act as two parallel 
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plates of equal areas with emissivities of Epsb and Epse, 


the heat transfer rate may be calculated (Ref [18]) from: 


5 = (Sig) x (Agap) x (Tet = Tb) 
7 1 LR 


ae ee 


Epsb J Epse 
where: 


Sig = Stefan-Boltzman constant 


8 Watts 


(S67 2910” z 


m* - degk 


Te 


Component surface Temperature (degk) 

Tb = Circuit board Temperature (degK) 
This radiation term may be simplified by expanding (Tet = Tb") 
in a Taylor series about Te and retaining only the linear 
portion of the series. When this is done, an effective gap 
radiation resistance (Rgap-rad) may be calculated from: 


Epse + Epsb - (Epse) (Epsb) 
(c) x (Sig) x (Epse) x (Epsb) x (Te”) 


Rgap-rad = 

Since the component case temperature (Te) is an unknown, this 
resistance will be recalculated as the solution progresses. 

These three resistances (Rpin, Rgap-cond, Rgap-rad) 
may be combined into a total resistance between the component 
and the circuit board (Rtote-b). When the component is a 
chip carrier, the air gap and lead length are assumed to be 
one-tenth that of the DIP case [13]. 

Although the radiation heat loss from the component 


is extremely small and normally neglected in thermal analysis 


of electronic circuit boards, it is included here for completeness. 
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The component will radiate to the other components and the 
meme Of the adjacent Circuit board. For the purposes of the 
thermal model under discussion, it is assumed that radiation 
is from the top of the component to the adjacent board and 
that this adjacent board temperature is the same as the board 
Bemecracure béllow the component. It is further assumed that 
@m@e area Of the cirewiteboard is much greater than that of 
the component. Using the same linearization technique pre- 
viously discussed results in the expression: 


1 - Epse 
(4) x (Sig) x (Epse) x (Ae) x (Te?) 


REOp-r = 
for the effective thermal resistance for radiation from the 
top of the component to the adjacent circuit board. 

Convection heat transfer to the air, the final heat 
loss path from the component, depends on the heat transfer 
coefficient and the area for that mode of heat transfer. 

The component is assumed to experience two separate modes of 
convection. Those portions of the component that are perpen- 
dicular to the air stream are assumed to experience a stagna- 
tion form of air flow while the top and sides see parallel 
air flow. Recall that air flow is defined as being from left 
to right as required for data entry in the BOARDS program. 
When component types are entered as being horizontal or 
vertical using the special function keys, the component 
length (Le) and width (We) parameters are set such that Le 


is along the air flow direction and We is perpendicular to 
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the air flow. The standard correlation for plane stagnation 


flow may be written as: Ref [19] 


a 4 Vair 3 
HStag—@(s57) xe (Kair) x (Pr°~) x Cae Gea 


where Hstag = Heat transfer coefficient for areas receiving 
stagnation air flow 
Pres Pranat. number for air 
Gnu = Kinematic viscosity for air 
Using the component height (He), the area for stagnation heat 


flow (Astag) may be calculated from: 
Astag = (2) x (We) x (He) 


The portions of the component that are parallel to 
the air flow (top and sides) are assumed to experience the 
same heat transfer coefficient that would occur in a smooth 
duct modified by a roughness factor (Fr) to account for the 
presence of the components acting to increase this heat 
transfer coefficient (Hpara). Hpara depends on the Reynolds 


number (Re) determined by: 


Bent Vantaa Xe Din) 
oT Gnu 


In the entrance region of the duct formed by the circuit 
beards, up to a distance of approximately ten hydraulic 
diameters, the flow is assumed to be laminar. Reference [20] 


contains the following correlation for the heat transfer 


Sy 








coefficient in the entrance region of a smooth duct: 


een | @ | 
APalee x hair) (Ganx (lec Ge 
SS = La) ara) ne a 


where GZ is the Graetz number defined as: 


(Re) x (Pr) x (Dh) 


GZ = : 
ee L: 


and Xi is the distance from the entrance of the cooling air 
flow. 

The value of the heat transfer coefficient predicted 
from the above equation has been found to be low from compari- 
sons to experimental data of Ref [12] and Ref [14]. The 


expression: 


pees (Perimmer (2) x Badh) = (2x (Zope 


Ee = 1 + - 
Perim 


has been created to adjust the predicted heat transfer co- 
efficient for the rough duct. The expression reduces to one 
when no components are present and is less than two for all 
reasonable board constructions. The resulting heat transfer 
coefficient that is used for the parallel sides (Hpara) is 


therefore: 
Mpaka = (Hduct) x (Fr) 


For positions beyond the entrance length the flow 
may be laminar or turbulent and the appropriate heat transfer 
correlation must be chosen. The transition from laminar to 
turbulent is assumed to occur at a Reynolds number of 1000 
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Since the components act as turbulence promoters for the 


air flow. For laminar flow, the expression: 


(Seay x Kaa ) 


Hduct = DA 


is used and the result modified with the roughness factor 
(Pr) to obtain Hpara. For turbulent flow the Dittus-Boelter 
relationship is used: 


eee ener) 


Dh 


Hpara = 1.023) x (Re 


Heat 1S convected not onlv off the top and sides of 
the components but also from the surface of the leads or 
pins. Since the thermal conductivity of the pin material 
is so high, their surface is assumed to have the same temper- 
atures as the surface of the component. The effective com- 
ponent parallel Side area for heat transfer is, therefore, 


determined from: 
Apara = (Le) x (We) + 2(Le) x (He) + (Aspin) x (Npin) 


where Aspin is the surface area of the pins that experience 
parallel air flow. The thermal resistances for convection 


from the component may then be calculated from: 


Rpara = (Hpara) x (Apara) ag 
Rstag = : 


(Hstag) x (Astag) 
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These two resistances may then be combined as parallel re- 
Sistances to give a total convective thermal resistance from 


the component to the air (Re-conv) of 


(Rpara) x (Rstag) 


Re- = 
ich (Rpara) + (Rstag) 


Returning now to the basic premise that all the heat 
produced within the component must be transferred through one 
Sewene Neat paths illustrated in Figure 8, the heat balance 


equation for the Ith component is: 
Pow? {i) = Geto board + Qto air + Orad off top 


utilizing the general expression for heat flow as a function 


of temperature difference. This may be expressed as: 


= Tem) = Toiry neti) = Tarr (1) 
Bae 2) = RToOTe-b (I) z Re-conv (I) 
2 HENS isle (Cu)) 
Rtop - R(I) 


This expression may be rearranged and solved for the compo- 
nent temperature (Te). The resulting expression is used to 
eliminate Te from the final set of equations that are solved 
for the set of board temperatures. 
4. The Circuit Board - Thermal Model 

Me scircuit board has been divided into regions as 
determined by the user while entering the circuit board 
description in program BOARDS. Each of the regions will 


lose or gain heat by the normal processes of conduction, 
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convection and radiation. In this thermal model, radiation 
from the circuit board regions is neglected due to the lower 
temperatures of the circuit boards. The board temperature 
(Tb) is assumed to be uniform within a given region for 
purposes of convective heat transfer to the cooling air 
stream. For purposes of calculating the heat conducted 
between regions, the temperature differences are assumed to 
exist over the distance between the centers of the regions. 
These region centers are the nodes in the finite difference 
model used to analyze the circuit board. 

The surface of the board forms part of the air duct 
previously mentioned in the discussion concerning the calcu- 
lation of the convective heat transfer coefficient from the 
parallel sides of the components (Hpara). The heat transfer 
coefficient of the board varies with distance from the air 
centered in the regions, the convective heat transfer co- 
efficient for the board (Hb) is assumed to be equal to Hpara. 
The area for heat transfer from each region (Areg) includes 
both sides but excludes any area under the component (Ae) 
Since the air is assumed not to flow in the small gap between 
the component and the circuit board. The area (Areg) is cal- 


culated from the equation: 


(2) x (Bal x (8dh) 


Areg = Nreg ~ Ae 
where Bdl = Length of circuit board 
Pene— Height of Circuit board 
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The convective resistance from the circuit board region 


(Rb-conv) is therefore: 


I. 


SPS = TG) se ae 


ihe wendwetion of heat within the circuit board 
Material and any added conductive material is assumed to 
occur between the nodes located at the centers of each 
region. For a given region, this heat flow is assumed to 
occur only out the four sides of the region. The distance 
Beeweonenodes in the horizontal or air flow direction (Lr) 
is calculated from the circuit board length (Bdl) and the 
member Of regions in the horizontal direction (Nxr). The 


expression used is: 


Bal 
NE Nxr 


Likewise, the vertical spacing between nodes (Hr) is calcu- 


lated as: 


These distances are used with the circuit board thickness 
(Thb) and the circuit board material thermal conductivity 
(kb) to determine the base board conductive resistances in 
both the vertical (Rb-ver) and horizontal direction (Rb-hor). 


The expressions used are: 


- lshg 
Rb-ver = 7eb5)-x (br) x (Thb) 
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and 


Gr 


Tue i) en ES 


The conductive resistances in the material added to 
the circuit board is treated in the same manner since these 
materials are also assumed to connect the nodes. The con- 
Guctivity of the material (kl) and physical area (al) have 
meen Specified for either a conduction path unit (CPU) or 


electrical lead. These are used in the expressions: 


eee 
a a aaa 
and 

- ss a 
Rl-hor = (an) Sa EMDE 


to determine the thermal resistance for conduction in a 
Single conduction path. This resistance is divided by the 
number of such paths to determine the total conductive re- 
pretance of the material added to the circuit board. 

This resistance is assumed to be in parallel with 
the conductive thermal resistance of the bare circuit board 
and a net conductive thermal resistance is calculated for 
each of the four directions using a normal product-over-sum 
formula for parallel resistances. Figure 10 shows how a 
typical region would thus be connected to the four adjacent 
regions. The values of these conductive thermal resistances 
are stored in a two dimensional array, Rl (I,J), where the 
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first index represents the region number and the second index 
is the direction number (1, 2, 3, 4). These numbers represent 
bottom, right side, top, and left side, respectively. \Sione 
example, Figure 10 shows how Rl (1,2) connects region number I 
and region number I + 1. For those regions on the edges of 
the circuit board, the conductive thermal resistance in the 
direction off the board are set to very high value due to the 
assumed adiabatic boundary conditions for all edges. The set 
@e conductive thermal resistances, R1 (I,J). is used in the 
meae balance for the circuit board. 

With the component treated as the source of heat for 
the circuit board. one may again apply a simple heat balance 


for a region as follows: 
Qe-b = Qconv + Qy + Q, + Q, + Q, 


where Qconv represents the heat transfer to the cooling air 
and Q, through Q, represent the heat conducted to the adja- 
cent regions as shown in Figure 10. This expression may be 


written for Region I as: 


Ree Sib) Tb (hee Tame E) a Tpo(E) - ThCr + Nxr) 
Rtota-b Rb-conv Right) 
% Toit) = Th + lL) + Tb(I) - Tbh(I-Nxr) 
Gran(T 2) Ries ) 


Teh) =e fb (1 =7,) 
Rit. 4) 


+ 


As previously stated, the heat balance equation for the component 
derived in Section 3 may be solved for Te(I) and that expression 
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used to eliminate Te(I) from the equation above. The only 
unknowns will then be the board temperatures. A heat balance 
for every region may be performed resulting in Nreg simultan- 
eous algebraic equations. The coefficients of these equations 
may then be collected into a matrix and solved using an LU 
decomposition method [21]. 

5. The Analysis 

In performing the thermal analysis of the circuit 
board, there are two separate Situations to be considered: 

1. Specified component power - determine steady state 
junction temperature; 2. Specified junction temperature - 
determine the maximum power allowable. For the first situa- 
tion a case temperature (Te) is assumed for each component 
Since this is necessary to determine the effective radiation 
resistances. All thermal resistances and the local air 
temperatures are then calculated using the given variables. 
The resulting system of Nreg simultaneous equations is solved 
using LU decomposition for the temperature of each region of 
eke ClrcUulteboard Tb. 

This set of board region temperatures is used to 
determine the set of component case temperatures using the 
expression for Te determined from the heat balance of the 
component. These component temperatures are compared to 
miaese from the previous iteration. If the largest difference 
between any of the temperatures is less than the convergence 
criterion established by the user (default .1 degC), the 
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results are presented in the graphics mode on a fascimile 
Sethe Circuit board as shown in Figure 11. 

In the display of the circuit board, each region 
contains the component type, junction temperature, power 
level and case temperature for the component in that region. 
Empty regions contain only the temperature of the circuit 
Beard. Those junction temperatures that are within 5% of 
the maximum are starred (**) for easy reference. This output 
is dumped to the internal thermal printer to provide a hard 
eepy. 

If convergence has not been reached, the new case 
temperature is used to calculate new radiation thermal re- 
sistances and the new system of equations solved. Figure 12 
shows the intermediate display of all temperatures that is 
presented on the screen while the next iteration is in 
progress. If longer than 20 lines, the maximum display area 
for output on the screen, this display may be moved up or 
down with the display control keys at the center top of the 
keyboard (see Figure 2). Convergence typically occurs in 
Heescethan four iterations when solving for component junction 
temperatures. 

For the second situation with specified junction 
temperatures (Tj), a power level of .25 watts is assumed for 
each component. The component case temperature may then be 


determined from the expression: 
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where Rj-c represents the case to junction thermal resis- 
Benee set by the user. As in the first situation, all the 
thermal resistances and the local air temperatures (Tair) 
eeewcalculated. It is important to note that Tair depends 
on the assumed power levels since these values will change 
with each iteration. The resulting system of simultaneous 
equations is again solved for the board region temperatures 
and the component case temperatures. The resulting compo- 
nent power levels for each region are determined from the 


expression 


Te -Tb 


oa Rtote-b 


This component power level for each component is compared to 
the results of the previous iteration or the assumed values 
for the first iteration. Convergence is assumed when the 
largest percentage difference from these comparisons is 

less than the convergence criterion established by the user 
(Default 13%). 

The output is presented in the same manner as before 
except those power levels within 5% of the minimum are 
Starred (**) in this situation (Fig. 13). Since both the 
radiation thermal resistances and local air temperatures 
depend on the power levels, more iterations are required 
before convergence is reached. Typically less than six are 


Smet vewent. 
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6. What Now Option List 

Following a complete cycle through THERML, there are 
several options available to the user. A different circuit 
board may be analyzed either by entering the descriptive data 
Bo trom the keyboard or by retrieval from mass storage. The 
previously recorded data set may be read in using THERML with 
no data checking capabilities or BOARDS may be loaded under 
program control to allow data checking or changes to the 
erreult board. 

In addition the same circuit board may be reanalyzed 
with a new set of installation parameters, i.e., board spacing, 
inlet air temperature and volumetric air flow rate per board. 

iemoemoitivity Analysis 

Another option available allows the user to investi- 
gate the effects of various air flow rates. The user specifies 
a maximum air flow rate and five separate analyses are performed 
for each of five air flow rates up to the maximum specified. 
Figure 14 shows how the results of this sensitivity analysis 
are presented for the situation of specified power levels 
while Figure 15 is an output for the second situation of 
specified junction temperatures. The outputs from each 
analysis such as Figures 1l and 13 are not presented during 
the sensitivity analysis since the graphics mode is used but 
Smoutput such as Figure 12 may be presented on the thermal 
Peter if records of individual components are needed for 
each of the separate air flow rates. 
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A final option available to the user is termination. 
It is important to terminate the THERMELEX system under 
program control to insure normal key definitions are returned 


and graphics parameters correctly assigned. 
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IIIf. RESULTS AND CONCLUSIONS 


The THERMELEX system offers the designer of electronic 
circuit boards the means to predict the thermal performance 
of air cooled circuit boards and avoid the problems that 
often surface only after the equipment is in use. The 
System is easy to use yet provides valuable data ina 
variety of formats that can help the designer to make im- 
portant design decisions regarding circuit board layout and/or 
cooling air flow parameters. 

The THERMELEX system has been tested with a wide variety 
of circuit boards to insure that various combinations of the 
possible components and empty regions will create valid 
descriptive data sets and reasonable results. In all test 
cases the results have been satisfactory when compared to 
expected results. For example, higher component power 
levels result in higher junction temperatures and decreasing 
air flow produces higher temperatures with all else the same. 
Several tests were made that used the results of a power 
level prediction as input to the same circuit board to 
insure that predicted junction temperatures were the same 
as those specified for the original test. 

In addition to the above tests for general validity, 


direct comparisons to experimentally determined component 
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case temperatures reported in reference (14) were made. 

The circuit board consisted of 25 equally spaced 14 pin DIPs 
ema is depicted in Figure 6. Three different air flow rates 
and four different component power levels were used. The 
results of these experiments are shown in Figure 16. These 
same flow rates and power levels were used as inputs for 
THERMELEX and the predicted maximum case temperatures are 
also included in Figure 16. At the lower power levels, the 
agreement with the experimental results is encouraging but 
for the higher power levels there are significant differences. 
In particular, the predicted maximum case surface temperature 
shows a much stronger dependence on the air flow rate than 
the experimental results would indicate. It is believed 

that several effects neglected in the the thermal model 
become significant for low flow rates and higher component 
power levels. For low air flow rates, the effects of natural 
convection heat removal become more important, thus decreas- 
ing the actual surface temperature. In addition, at higher 
temperatures, the conduction into the electrical connectors 
and mechanical supports will also tend to hold the surface 
temperatures lower for the experimental results. Further 
work is needed to resolve the differences between the 
experimental results and those predicted by THERMELEX. 
Particular attention towards refinement of the thermal model 


1s required. 
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IV. RECOMMENDATIONS FOR FUTURE WORK 


While the present version of THERMELEX can be a valuable 
tool for predicting thermal performance of electronic circuit 
boards, improvements and refinements would be useful in 
several areas. The first recommendation would be for more 
experimental verification with particular emphasis towards 
developing better empirical heat transfer relationships for 
use in the present thermal model. The thermal model should 
also be expanded to include both the effects of natural con- 
vection and boundary conditions other than adiabatic. In 
particular the user should be able to specify a constant 
temperature for one or more of the physical circuit board 
boundaries. This would allow the modeling of installations 
that include metal card guides or cold plates. 

The present model does not include the interaction that 
Can occur between circuit boards mounted closely together. 
These effects could be included in the radiation sink 
temperatures "seen" by a board or included as effects on the 
local air temperature for the bottom and top of the circuit 
board. 

Additional improvements could also be made in order to 
increase the number of circuit board designs that may be 
analyzed with THERMELEX. The limited set of components 
could be increased to include DIPs with different numbers 
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of pins and other flat pack case styles. Discrete components 
such as resistors, capacitors and switches are also able to 


maemster heat to the air stream and could also be included. 
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APPENDIX B 


ia ! AUTOST soooo JUN IYASIS ISURISIRIA) [RENS ooace 

<u ! 

cS f #et rere greece retcrecks THER MELE THETA E EE ARK HSE Re KEE TH HESS 
40 a 2 * 
So ! £ A SYSTEM OF FROGPAMS FOR THE HP 35495 * 
€8 I+ + 
72 ! TO FERFORFM THERMAL AHAL YSIS OF ELECTRPOHIC CIRCUIT BOARDS * 
3o i 2 < 
99 te tet ee ee ee ee ee ee ee ee ee ee ee ee re eer eee 
10a9 #! «# : 
110 | «* * 
128 ) <3 FREPAFED AT THE HAYAL FOSTGRPADUATE SCHOOL MONTEREY * 
Sie) 3 * 
148 os Ro fo FPMLire Leaks rik * 
om, ! * & 
160 ! «* “< 
170 |! # EM) AUTOST fIl{ JUNE $3 # 
130 '! « * 
139 NS ela i ie ie al ee ee ee ae 


280 PRINTER 15 4 

218 PRIMAL GHC S7 ste 2 lest 4 
fe DIN S#C€6o) 

239 COM Map 


248 PRINTEF IS 15 

258 GOSUE Seteto 

2566 BOSUB Inzr 

278 IF Ansf="BRCK UP" THEH GOT 248 


236 GOT? Start 

290 Starte: GOSUE Error 

SO0 Start: §Fe"nNOTE TO Wee AsctT 
316 ON ERFGR GOTO Starts 

320 GOSUB Pagehe ad 


Ree he een cane > 


ao Fea. ™ The following user-keyz will be in effect unlesz otherwise note 

aa" 

349 PRINT "In general these key detfinitions are valid ands when the program 
13 waiting" 

354 FRIND “tor an input Ste Fun Vightsin lower right corner is off4. The Back 

_YWp optican" 

369 PRINT “CkO* returns the prooran Coes Prewious guestian or control point.” 

378 PRINT 

330 PRINT “Triz should be used when the user decides Ke hos made some error an 
input that" 

39a PRINT “Gmmebe corrected by re-entering the dats." 


404 FRINT 

414 PRINT “If vou do not have a pla 
6164)" 

426 PRIHT "3 paper one will be provided. " 
438 PRTHT LCIM¢1> 


ifs 


ore key code overlay filled wi <hp & @leau= 


446 PRINT " KE’ “kO* will back up to the previous question." 

430 PRIHT " Fer “Fl Weil dizpia»y printad sut put. CEsil) GRHPAILEs 
456 PRT Ret he W111) ditapla abst 2d) stout. CGEHP ATES) 

472 Fire let) ee KEY “k3° Wall print Copy oF Plotged output. CDUMF GRAPHICS." 
489 PRIHT " KE’ “k4’ will disable internal printer. (COIS sls 08) aby a 


49% DISF "Prezz CGHT WHEN READY FOR MORE © PLAdATIONS” 
908 PAUSE 


516 FRINT " KEY “kKS% will enable internal printer. CPFRIHTER IS @>" 

523 le tiene Yt KEY “Ke will rewind left hand tape. Cd 30 PO Oe 

538 PRINT ™ KEY “K?* will rewind right hand tape. CREWINE: sThaes™ 
on 


78 





540 
5598 
360 
S70 
ca 
S$a 
ion 
593 
609 
61a 
620 
§30 
648 
658 
660 
670 
689 
698 
706 
718 
me 
one 
739 
rec 
7493 
ard 
hts) 
769 
77 
739 
7938 
sea 


LL} 
* 


big 
82a 
838 
Ee" 
S40 
Gee! 
Br) 
86% 
$70 
835 
8gn 
9898 
91a 
920 
936 
949 
954 
965 
978 
926 
998 
1096 
1619 
1626 


AUTOST .. DRIVEP FOP THEFNELEX 


euRelch lie KEY “Kid will answer Yes. 
OUR KEY “K15’%will answer No." 
PRINT LINCS) 
PRINT “In general when answering questions or selecting an aption pressing 
NT " 
PRINT “with no ather entry will assign either the default or the first apt 
iA 
PRINT “parentheses tthe first option in the 1135t)? as the desired aptioan." 
Print MMe i> 
PRINTER IS 15 
GOSUE Over lau 
IF Anss="BACK WP" THEN 260 
CVSe -EURGI Mis Fer DEFPINITIGNS* 
IF Map=08 THEN LOAD KE; “BISKEY" 
WAIT 1900 
GOTO 338 
Optionse: GOSUE Error 
Optians: SS="NAIN PROGFAMN OPTIONS" 
ON ERPOF GOTO Cprianse 
GOSUEB FPasgehead 
PRINT * The THERNELES program package conarets of three major sectiona, 
Cites 
PPINT “which #2 in core now providing these instructions. The other tuo a 
alled" 
PRINT “SOHStS smd THESML. FEoth have the cansbility to read circuit bo 
data" 
PRINT “from a Mazz Storage Device (sg Tape or Disk) but only BOARDS can: 
PRINT "Cad Input cirewit Beard decerigtica fram khevioard... "4 
PRINT "C€b) Allow graphical checkingoar descciptioms.."% 
PRN sot COMmMakemncGrtina st lanrms ate acm iat Tens as Mequiired. .. 0s 
Peinle (Cf) FPecord detsecripticis +o Waee t7orag2...” 
PRINT Litt 1>,"THEFML performs the thermal analysiz and output of results 
Peet! CIlHw1>, “SOUR OPTIONS SARE: "; 
PERTH) " 1, LOAD BGHEDS TO INPUT BESCRIPTION FROM Ley BOARD.” 
Pear ClWe I Sete ¢. GRU FUE Ds TO FESR VESCPIPTIGN OFF NASS STORAG 
Ee tN) (tte SPACeN s,s, CORD THerNe Th FEAD SESCPIFTIUNS OFF MASS STOFR 
WITH TANMEDITAVE HHALYs ts. “ 
PRINT CIN Poe SEA e2s>, "4+. Geer ALL PROGREANS " 
Ansf="1" 
Hipvie OURS CHG Ce @ Clo fo3,4/°,hnss 
MIB fame ez stare Wie inl 3 Eyp i 


Ans=INTCVAL: Ans)? 
IF (Ains>@> AND (Ans<5) THEN 320 


GOSUE 


Errin 


GOTO Options 
IF Ans=1 THEN Map 


IF An 


=z 
2=2 THEN Map=3 


ON Anz GOSUEB Gen, Gen, Therm), Capy 
GUTO Options 


ISP “LOADING GENERAL CIRCUIT BOARD FROIGRAN “ 


LOAD "EOARDS",1 


Gen: u 
STUP 
Therm) 


2DISF “WORPKIHG LORDING THEFML " 


LOAD “THERML", 16 


STOP 





1030 
1046 
1@50 
1050 
1876 
1629 


Hees) ss Omiwek FUR THERNE@E. 


CopyesGOSUB Errar 

Cope: § THIS SECTION FOR PROGRAM REPRODUCTION ONTO ANCTHER MASS STOPPAGE 

ON ERROR GOTO Cape 

SS="COPYING THERMNELEX PROGRAMS” 

GOSUE Pagehead 

Imi This section allows easy repraductian af THEFMELEX from one mass 


storage" 


1030 


PRINT “device to another. The mass storage medium “tape or disk> must be 1 


nittalized." 


1189 PRINT "If the medium intended as the destination 13 neu or you wish to @ras 
ae all" 
PaO PRINT “files then the use of option 2 will perform this teak. Since the TH 


ERMELEK" 


1126 


ole to wee 


PRIHT “sustem requires only anproximatly Sag records.,it ig po 


a medium" 


1130 
Tow 


1146 


PRINT “that already corntainzg files to te retained; however, this may not al 


PRINT “sufficient space for the data files containing the circuit Soard des 


Cranpitaonis «) 


1159 


PRINT "Option 1 will record in the available spaces if possible tut tt 13 r 


econmende 3" 


11£0 
Ne Grid) 


PRINT "that an entire mags storage media be devoted toa THERMELEX,. " 
Berth LIWCis. “YOUR OPTIONS APE"; 


1136 FRINT " 1. €OPY ACL FROGEHHE WITHOUT INI TIALISATIGH. ” 

MISBSER TH EINK i>, SEHR 2G), "2. RORY BEE FeNEFPRis AFTER IMITIALL SRI an. * 
1208 AnzF="1" 

1210 INPUT “YOUR CHOICE FROM ABOVE “1 or 29" ,Arnef 

1220 IF Ansss"EACY UF" THEN Jptians 

1238 STHTCVALSANE FD 

1249 IF CAns=1) OF CAnz=2> THEH 1278 

1254 GOSUB Errin 

1260 GOTO Cop 

1270 AnzF=Neus1F 

1236 EDIT "WHAT NAZS STORAGE DEVICE CONTAINS THE THERMELE? SYSTEM C3 T1S5,:T14,:Fs 
»>ETCI",Anss 

es Cne lie Anes="BACK UP" THEH Cpu 

1300 IF AnefC1.13°>"3" THEM Anst=a"3 "LAnst 

1310 Msuzl$eAnss 

1326 AnsF=": Ti+" 

1339 EDIT "WHAT MASS ST GE DEVICE CONTAINS THE DESTINATION MEDIUM ¢3714,:2:715,°: 
FUEGO” «ried 

1386 IF Ans®="BACK_UP" THEN Copy 

1359 IF AnstéC1.,1)->"3" THES Anste" 3 "“2Anet 

1360 IF Anz£f< -Msuz1lF THEN 1459 

Wigs) 13s aie 

ieee rk ta PHGE, LINC19) SPA. Tao, “HOW CAM f COPY FROM “tMsusi¢3" TO "Anes 
1390 PRINT SFAC19)9,"TREY AGAIN" : 

1400 WAIT 2008 

1410 EEEF 

1429 WAIT 1590 

1436 BEEP 

144@ GOTO Copy 

1450 Meuz2fsAnaF 

1466 IF Anz=1 THEH Copye2 

1470 BEEP 

1430 PRINT FAGE,LIH'199, THEC1IS5>9," " 
1498 PFINT 

1500 PPINT THEC15), "e#+err te eeee ese see HARH IHG > eee re ees ee ee escent 





AUTOST .. DRIVER FOR THEFMELEN 


1516 PRINT LINX? : é 

1520 PRIHT TABCIS:, "THIS PROGRAM WILL ERASE ALL FILES ON "sMauscs 
W520 PRINT LINCGa, THE 15:, " :. " 
1S40 PRINT LCING12,SPA 10),"USE beolt TO - BACK UF IF THIS IS NOT YOUR DESIRE" 
Peo LH<t), SPHucten  FRESS CGHT IF THIS 15 OF «2.6. " 

1560 WAIT 2ou 

1570 BEEP 

15230 INPUT Anes 

1530 IF Anzs="EACk UF" THEH Copy 

1608 DISP “WOFKING INITIALIZING "SMsuslt 

1610 INITIALIZE Meuess 

begO IF Msus2¢02,27.>"T" THEN Capus 

1630 DISP “WORKING es UP "SMsuses 

fe4@ CRERTE “DUMMY "StMsuect, 420 

1630 CREATE “ENDSPA “ails ore i 

1660 FURGE “DUMMY "EMsuses 

1670 Copy2:! IN THIS SECTION THE ACTUAL COPYING TAKES FLACE 

1626 RESTORE 1759 

1698 FOR I=1 To $ 

17900 READ Hans 

1710 COPY Namf&iMsuzl$ TO Hamel Msus2eé 

face use “COPYING “stHaness" FROM "sMzeusiss" TO “{Msus2s 

1730 WAIT 1536 

1749 NEXT I 

1750 DATA BOSKEY, STor Ee’, DEMO-T, DEMC-F,AUTOST, BORRDS, THES NL, TNANES 
1766 RETURH 


177s ! 

1789 SerstoesGOSUB Error 

17°98 Setsto:! THIS SECTION DETERMINES WHERFE THE THERMNELS SYSTEM IS AWD SETS 
1344 1) MASS STORAGE TO THAT FLACE 

18616 ON EFSOF GOTO Serastae 


1620 S$="LOCATION OF THE THERMELES SYSTEM" 

1830 GOSUB Pagehezad 

1840 FRINT “ It is neceszary that the mass storage media that containg the TH 
ERMELER" 

19850 PRINT “system be located in the default mais Storage device. Therefore, th 
e default" 

1860 PRINT “mass storage will be converted bu the pragream. Thiz ghauld not tbe a 
ltered" 

1870 PRINT “during the use at THERMELE:S. Uata filet located son other mass stora 
ge devices" 

1850 PRINT “may be acczsed by appending the apprapriate device cade ta the file 
name," 

tese fnet="3T15" 

1900 EDIT "CHANGE OF ENTEF BELOW THE LGCATIGON OF THERMELEX ?",Anz$ 

1919 Anz2sSUFPCFCAnNs Fs) 

1320 lEahnsrll,1ig7"s" THEM Anez="s “SAnss : 

Paco Chest le,ci="F"> CR @Anetio ea" t" > OF cAmsgle,27="Y¥"> OF F.An2e? le], 21]="2* 
then 1570 


1940 BEEP 
1950 GOSUB Errin 
1920 GOTO fetrety 


1970 Msuzlsafinss 

1920 MASS STORAGE 3 Meuslst 

19390 RETUFH 

2600 Overlay: ! THIS SECTION FPREFARES AH OVERLAY FOR THE USER 

2910 Anss="/" 

2026 INPUT "DO you BDESIFE A FAPER KEY-CODE OVERLAY cc’ GR WAT" Anet 


sl C4) 





AUTOST .. DRIVER FOP THERNELES 


2030 IF CUPCE“Ansf ="N") OP CAnmze="BACK UF": THEN PETUPH 

20409 PRINTER 15 0 ee 

2050 PRINT SFACIS>, "TEAR OFF FOR SENEPAL PIPPOSE KEY CODE OVERLAY ",LINC2> 

2060 FRINT "“[Back up| EXIT | ENTEP [ BunNeP [ FRT IS|FRT I3 | REWND | REWND | 
Bee ™ 

2070 PRINT "| .kod [GRAPHIC|GRAFHIC{GRAFHIC | is] Bo Fleets | STs | 

ABOVE KEYS" 

2030 PFEINT “TEAR HERE ---------------------------- THEN PRESS CONT ---" 

2096 PRINT LINC1> 

2109 FALSE 


2110 PRINT "| «ka | | | | (EGCG i FES oe] Nols 
PLACE" 
220 PRINT "| | | | | J LIne | | 


EELOW KEYS" 
else FRIRT Lit<3) 
2140 PRINTEF [2 16 
2150 RETUFN ! END OF Quer] av 
2156 ! 
21fO) Pagzheso:! THIS 5 
21388 PRINT FAGE, TABS 34 
2198 RETURN 
2e08 Errin:! THIS SECTION ALERTS THE USEF TO AN ATTEMPT TO INPUT INVALID DATA 
22iu EEEF 
2220 PRINT FAGE 
2230 DISP “INPUT OUT OF BANGE.......7RY AGAIN" 
2230 WAIT 25590 
EEEF 
WAIT 1560 
Slate 
RETUFH | EMD OF Errin 
2290 Errar;:! 
238A PRINTER IS 15 
Zouch) Lira TAS ten: *EerPOP HUMEES “3; ERPN: “HAS OECURPED IN LINE “SERRL 
2329 DISP "FFESS COHTINIE WHEN FEADY TO FESUME FROGRAN FLOW” 
2339 PAUSE 
2340 |! 
2-oo Pagecrt:! THle =ECTIGN EBPSARKS THE ZHSTRULTIONS INTO PAGES FOR THE GET 
2250 DISF “Press CONT when ready for more inmgtrstrons" 
2370 PRIHT LINCE? ant 3) 
2380 PAUSE 
23908 RETIUFN 
2406 ! 
24190 Pageprt:! THIS SECTION EREAKS THE FRPINTED INSTFUCTIONS IHTO PAGES 
2426 PRINT LINC Blanka? 
St sOerrin, THe€ss7, "Po. “;Pagenum 
2340 PRIHT LING1),“__ 


CTION PLACES DESIFED HEADING ON A BLANK ORT 
LENCS£°/29, "$e “SCHREC1329555;CHRS. 12923" 2<",LING2> 


n 
twa) 


POM he Po 
ha MRS bo 
NM © 
Qa 2 & 


2450 IF Pagenum>S THEN FETURN 

2460 PRINT LIK 45, TABSSF-LENCS$3- S93 CHFECISS293 38° CHF FC Lot. 3 TRE 
<P g (Lee? 

2476 RETURH 

2469 ! 

24396 Inste:GOSuB Error 

eoroominsts! THIS SECTION FEFEFREES Fi SET SF WRITTEN INSTRUCTIONS FOR THE USEF 
2516 OM ERFOF GOT Insts 

Coe Onss =e ho trUsn hs POR TUSE CR Thee Bea 

25783 SOSUB Fagehead 

2546 PRINT " A written set of instructions can Oe prepared for the weer that 
will help" 


ss 


ay 


Pe Fae ge age tlm 
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AUTOS Teer. 


2550 PRINT “one 


DPIVER 


FOR: THEP MELE 


as 


satem without actually us 


tOeoec ies haomriham With the THERHELEX = 
Ing the "“ 
2508 PRINT “the computer. These are intended to only supplement the set of dire 
etions" 
2570 FRINT “given during the es ecution of the system of programs. Theze instruc 
Vircns wi 1] * 
2550 PRINT “normally be presented on the screen but if vou desire a hard copy of 
the" 
2590 PRINT “irgtructtons, ENTER YPFT rather than Y." 
e600 Ans F="N" 
201@ INPUT "D0 YOU DESIRE FRIHTED INSTRUCTIONS “N or YY OF YPRT)?",Ansé 
2620 IF Ansf="SRCk_ UF" THEN RETF 
2628 IF CUPCE(Anset01.1))="¥") OF .UPCESCAnsf °="N"> THEN feed 
2640 GOSUE Errin 
2659 GOTO Inet 
2660 IF URES Anz fF °="N" THEN PETUPH 
2670 PRINTER IS 16 
gos0 FRIHT PAGE 
eosO iF UPCS Cnnss01,2)3="(P™ THEN PETHTER IS 6 
2700 P=15 
een IF UPCSCAnesC€1,2))="YF" THEN P=O 
Pee or seth tice, Theiss -LoMs {fem Uwe CHP sess eS SEP CHESS ee LINCS) 
2730 PRINT " The THEPNMELE:: suzstem 12 dezigned to perform thermal analysis af 
air cooled" 
e?4a PRINT “electroniea circuit boards. The Systm cansists of three major pragr 
amz:" 
270 PRAT 
Seo FRM LINkts, THB ter. "2. AUTOST Driver and zystem setup. " 
CHARON rR yk Ler Treeline ec. OL I ei Tie, Input and cecording of data." 
weed PRINT LINSl > eC ir), "3. THERM Analveiz and output of mezsults." 


2roo PRIHT LIN £3 

2890 PRINT “The AUTOST program eitanlishes eperial key deffinitions and acts 4 

s the driver" 

2316 PRINT "for the ather programs within the THEPMELEY sustem. The keuw deffini 

tions are " 

2826 PRINT “valid throughout the syitem except when entering the specific compen 

ent type" 

2eS9 PRINT “eades during ececution of BORRDS . " 

2849 Elank 220 

2856 IF Pets THEN GOSUB Pagecre 

286G PRINT 

2370 FRINT " This driver program is entered by placing the tape in the primar 

y tape" 

2829 PRINT “transport CiTiS>) at the right side above the especial keve. You then 
seg INC 1) 

SeeorrRiny THECIO), “TTFE: LORD “SCHR A Stas "AUTOSTI TiS" SCHR sc ada; "2 Then Pre 

$e EXECUTE . 

2908 PRINT 

2910 PEINT “If the SESSA 13 of f, the driver may be loaded By inzerting the tape 
ti § ilS,5e 

2920 PRINT "latching the AUTO ST Key in the down pozitian, and turning the power 
on." 

2930 PRINT "In either caze the first question will be concerning the location ef 
the ” 

2940 PRINT “THESMNELE system. The program will convert the default mass ztorage 
device" 

2950 PRINT "to what ever device cantains the system, It 12 important ta not cha 


nge this" 
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AUTOST .. DPIVER FOP THEPMELEX 


2960 PRINT “while using THERMNELEX. These instructions may be provided on paper 
or CRT and" 

e970 PRINT “a paper keyeode overlay may be provided az a guide to the key deffin 
tions" 

2986 FRINT “that 15 loaded by AUTOST. A plastic overlav is available from Hew 
lett-Packard" 

2996 PRINT "“Ceart # T1IZ@-5164) which mav be filled in using the paper overlay as 
a guide." 

3080 PRINT “The other programs sare entered from the aprron selection list (Menu 
MwBUTOST. " 

SQ@190 FRINT "Normally BOQRFEDS is next laaded ta allow the input of circuit board 
descriptive" 

3H20 PRINT “data from the keyboard. The instructians that follow applw ta thiz 

optian,.” 

30539 PRINT 

3046 Elanks=4 

30560 IF FP=16 THEN GOSUB FPageert 

3060 PRINT " The user should nave either the circuit baard or a facsimile ava 
lable" 

3078 PRINT “while he is using the BORPDS progran, Orient the board such that 

the cooling" 

S6SG PRINT “air flow 13 from the left to the right. Mea 
In the air" 

SUS6 PRINT "flow directians, width and thickness of the circuit board in milline 

ters (mm)." 

3190 PRIHT "It 15 mee 
ions in both" 

3110 PRINT “heortzontal and vertical directions. The centers of 

gions will" 

3120 PRINT “form she nodes of a finite difference grid to be used in the thermal 
analysis" 

Srooerrant “ot the ¢lestronic circuit board. The imaginary lines that sare creat 

ed divide" 

3146 PRINT “the circuit board into regions that will fither be empty or will con 

tain one" 

3150 PRINT “csaomponent. An exceptian to thiz 
ich occupy" 

3166 PRINT "tuo regions due to their large size. An atthenipt 2 appro-«imate the 

rece G jimceint 

3176 PRINT “board with 4 model requires some Flexibility and imaginatton at tniz 


wre the length Cdefined 


th 
if) 


Bary to divide the board inta evenly epaced imaginary reg 


Te 


aS 
3 [Pe 


each af the 


ig the caze of 439 pin TIP s wh 


te 
5 
00 
i 


point.” 
315@ PRINT 
ei90 PRINT " The thermal model uzed for the analyvsiz will assume that each oa 


mponent is" 
3263 PRINT “centered in the region. The following components can be tncludeds" 
3218 PRINT 


% 
in] 


3220 PRINT " DIPS Chorizant al or vertical 2, CHIP CARRIERS " 
3230 PRINT " 14,15,24,495 pins 15,24,90,84 pins” 


32480 PRINT 

3256 Pagenum=1 

3260 Blantks=4 

3270 IF P=6 THEH GOLUB Pagepre 

3230 IF Fle THEN GOeSsEB Pageert 

3296 FRINT “The limitation: imposed by restricting the conponents to the list ab 
ove will " 

3360 FRINT "prevent some circuit boards from being precisely modeled using THERM 
EEE bet * 
3310 PRINT “ar 
a." 


ote 


ri 


ats 


Ceszary to pravide for the simple input af the descriptive dar 
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AUTOST .. DRIVER FOR. THEPNELEX 


3320 PRINT 

3330 PRINT " When BORRDS 13 loaded ustng epriaon #1 im RUTOST a cantroal pa 

rameter 13" 

3340 PRINT “assigned which causes the program to begin at the section which azks 
for the” 

3350 PRINT “geometric parameters of the bare circuit teard. You will be asked t 

oO enter the" 

3369 PRINT “length of the board in millimeters. Enter the length using either t 

he number" 

3378 PRINT “pad at the far right of the keyboard or the numbers abouwe the letter 
keys" 

3330 PRINT “followed by the CONT Kew, The next question will appear at the ba 
ttom of the" 

3390 PRINT “sereen while the length that was just entered will be printed immed 

atly below" 

3489 PRINT "the imatructions. Answer gach queztion remenbering ta wee the CONT 
Key and" 

3410 PRINT "check the values on the gereen. If a mistake if made pres KG and 
the program" 

3420 PRINT “will azk the questian again. Arter the length, height, thicknezs, © 

Onductivity, “ 

3436 PRINT “number of regions in the “X% direction and the number of regions in 

tie Y" 

3443 PRINT “direction have deen entered, the pragram will ask for a zhomt Cless 
than SO ” 

gvo0 PRINT “characters) descriptive title. This title will become part of the 
ata set for" 

3466 PRINT "the circuit board and will Se used ts identify the sutput. Tuo eam 

ples ares" 

3476 PRINT 

3439 PRINT SPACS), "TEST BORRD FOR PROJECT UNETYFRATS or RESCRIET Eee! Tie 
$1234.9AR ." 

3439 Elanks=9 

3580 IF P=15 THEN GOSUE Pageert 

2516 1F F=e THEN PRINT 

go20 PRINT " The serzen will now shift from the alpha mode toa the graphics ma 

de and draw" 

S30 FRINT “an 2mpty board with the imaginary regions marked off with datted Tin 

es. Thiz" 

3540 PRINT “picture will remain on the screen for anly 2 sec after it 3 drawn b 

ut it may" 

S2eOpreiti) "be returned to th™ screen using Ke to sllew further time far cheek 
ing. iT) 

3560 PRINT "Ki will return the screen to the alpha mode for the next section. 
3576 IF F=0 THEN PRINT 

So) PRINT * The special function keys will now be used to input the cantents 
of gach of” 

3599 PRINT "the regions defined on the Blank board. This it the last chance ta 
use the " 

3690 FRINT "Back-up option (kO> if the board is not correct. A new Key code ave 
riay will" 

3610 PRINT "be provided if necessary and must replace the general purpose overla 

y on the" 

3620 PRINT "keyboard. The keys defined in this section act as prisrity internup 
ts and will" 

3438 PRINT “allow the sereen to remain In the graphics mode a3 the components ar 
e detined." 

2640 PRINT "A flashing crozs will move to each region in suceszion and wait for 
a valid" 
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HUTGST .. DRIVER FOR- THER MELE:: 


mae PRINT “key to be pressed. Every region must be defined even if empty. rev 
<=” 

3650 PRINT “important to wait for the cursor to move ta the next empty region be 
fore keys" 

3670 PRINT “are pressed. The bact-up option will NOT work while defining comp 
onents but" 

3630 PRINT “there will be an apportunity to make corrections in the nmext section 


3690 PRINT “When all regions have been defined, the zereen will return to the al 
pha mode to" 

3709 PRINT “ask if there are any corrections. At this point k2 will resurn the 
graphics" 
sry PRINT "+ 
3726 Blanks=4 
oeo0 TF P=t5 THEN GOSUB Fagecrt 

3740 PRINT 

3756 PRINT "To make corrections, the numbers of ALL incorrset regions are ente 

red and the" ay 
3758 FRINT “compoments ¢rased. When there 

COMT with" 

3778 PRINT "no entry will allow all empty regions to be redefined. 9 flashing ¢ 
ross will" 

37EG6 PRINT “visit each enpty region followed by further carrectian opportunity 4 
$s needed." 

3798 PRINT “then the board is correct, the general purpose kev deffinitions are 

returned" 

38859 PRINT “ard the normai key code overlay should be replaced. " 

3310 FRINT 

3320 PF agenumec 

33820 Blanks=11 

S840 IF P=9 THEN GOSUE Pageprte 

seo0 PRINT “ CIP caomponen’ 3s generally are produced in tuo different case rut 
es, ceramic" 

3860 PRINT "sr plaitic. These are different sizes and this affect: the thermal 
analysis" 

3376 PRINT “performed in THEPML. The next section provides 
specify the" 

SSSQG PRINT “cease styles for the DIP’s. These ares [> all plattic...29 all ceram 
YGo6a* 

3890 PRINT “3> majority ceramic Cuser specify which are plastics...4) majority ¢ 
eramic Cuser" 

39390 PRINT "specify which are ceramicd...5) uger specify case styl 
component," 

3919 PRINT "In general, aption 2 or 4 require the user to input the number af r 
gions that" 

3920 PRINT “are either plastic or ceramic and are useful for specifying the styl 
e when" 

3930 PRINT “when anly a few are different. When there is a nearly equal mix, op 
tion. 3 

3940 PRINT “requires at for plastic style and a 8 for ceramic etvle. After al} 
DIP’s are" 

3950 PRINT “2pecified, a list of région numbers if disgplaved on the sereen Cin 
alpha mode)" 

2960 PRINT “with the plastic ca223 In inverse video Cnumbers Olack on Tight back 
round) and" 

3978 FRINT “ceramic tases in normal vider. Corr 
Cisse Ss 

3969 FRINT “indicated By pressing CONT Key with mo entry." 


2 the screen and ki will return the alpha made to the secre 


Os) 


ri e 


rena mare too be removed, pressing 


fut 


several merthads toa 


for gach DIF 


aly 


% 


et af needed and again no corre 


iy 
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AUTGs)) 2. MEIVEREEGRs THEE MELE .4 


3990 IF F=0 THEN 3030 

4090 DISF "PRESS CONT WHEN READY FOR ANOTHER PAGE OF INSTRUCTIONS" 

4010 PRINT LINC2) 

4020 PAUSE 

4030 GOTO 3@50a 

4948 PRINT 

4050 PRINT "“ The next section cancerns the thermally conductive paths thzit ar 
e addeg "“ 

4Gce0 FRINT “to the circuit board. Both the electrical canductors and sny therma 
leconduction"” 

407& PRINT "paths or rails will transfer heat between regions. When ant! conduct. 
Vera be 

4GE0 PRINT “rails sre present, the effects of the electrical leads will be negli 
gable and" 

S070 PRINT “tgnoréd. To sid in tht modeling of the conductian rails it is neces 
sary to” 

41896 PRINT “introduce the concept of a Conduction Path Unit CCPUD, Each of the 
rails is" 

4113 PRINT “modeled a3 cantaining an integer number CFI’s. The width af a CPU 1 
s defined " 

4120 PRINT “to Se .1 mm while the user must define the thickness Cmm) and therms 
We 

4130 PRINT “conductivity (Watts M-C) of the material that forms the conduction r 
A) Sq 4 

414@ PRINT “The thermal conductivities of several aluminum alloys and copper are 
presented" 

4156 PRINT “to aid the user. If there are no canduction rails present, the elec 
trical lead" 

$150 PRINT “dgeieription 13 entered in the much the tame wavs thickness Cums, ave 
rage width" 

4170 PRINT “(mms and the conductivity Clatte-N-C%. This will default toa S34 Wat 
ta-7t-C, the" 

4130 PRINT "value for copper. Thizt is the moat common material for traces on cir 
Cult boards." 

4190 IF F=3 THEN 4249 

4240 PRINT LIN¢cv 

#219 DISP “FFESS CONT WHEN READS FOR ANOTHE® FAGE OF INSTRUCTIONS” 

q¢220) PAUSE 

4226 GOTO 42590 

4240 PRINT 

4258 PRINT “ In the next section the numbers af leads or CPRIN’s that cross the 
interior" 

4263 PRINT “boundaries between regions are entered. The display will alternate 
between" 

4270 FRINT “the graphics and the alpha mode with the flashing cross or curgor mo 
ving to the" 

4296 PPINT “anpronmriate location om the board to be defined. The graphics will 
remain on" ; 

4296 PRINT “the sergen for two seconds and then return te the alpha mode for an 
input line." 

4330 FRINT “It will ask for the input of the number of leads aor CPUs between tw 
° Beet te’ 

SseOerRiN) “regions; if if the conduction neil is 6.f mm wide, there are ef CPL” 
2 in that" 

4320 PRIHT “path. Special function key 3 Ck3) may be used ta dunp the graphics: 
to the" 

S3cQerPiHT “printer for a hard copy of the graphics picture. It is importan? ts 
account" 

C14) 
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AUTOST .. DRIVER FOR THEPNELEX 


4340 PRINT “for the leads on both sides of the circuit board when entering this 
number," 

$350 PRINT “As before follow all entries with the CONT kev. Because of the pr 

ogram flow" 

4300 PRINT “in this section, the Back_up option (Ck) will not function. Bo nat 
attempt to" 

43°?0 PRINT “make correctians or return te a previdus fectran untrl after allo ert 

ries have" 

4320 FRINT “been made. All corrections will be made tn the mext seetian.”" 

4390 PPINT 

4400 PRINT " Tn the thermal model used be the THERMELEN suatem, all heat i3 t 

ransfered" 

44108 PRINT “to the cooling arr ztream. Hane of the heat 13s transferred aut the 

edges of" 

4420 FRINT “the circuit board. For this rasan, the sides of the regions at the 
edges" 

44393 PRINT “will be labeled with 8 to indicate that no leads or CRU’s cross this 
boundarw, " 

4440 PRINT “When this heat lozs from the board edges and commector i 
the results" 

4450 PRINT “will be conservative. These aziumptions may be unacceptable for cir 

cuit boards" 

4400 PRINT “used in installations where a significant fraction of the total heat 
dissipated" 

4470 PRINT “ts conducted away from the Goard through card guide2 or connectar 

4439 FRINT 

4428 Pagenian=s 

4549 EBlanwiee 

4510 IF F=0 THEN GOSUE Pageprt 

4520 PRINT " When all regianzs have been zpecified, the 

the alpha" 

4525 PRINT "mode and azk if any corrections are needed, Use the epecial functia 

ns keys" 

4546 PRINT “a 

y. Enter" 
SSO FRINT "the numbers of the connecting’ regions that have incorrect values for 
the numbers” 

SSe05PRIHT “of leads or CFU“. Az before, CONT with no entry signals the lack 
of further" 

4370 PRINT “corrections. The physical descriptian of the circuit Ooard is now c 
Oomplete." 

4530 PRINT "RII that remains if to gpecify either the component power levels Clits 
tts) or the" 

4590 PRINT “junction temperatures for each component." 

4600 PRINT 

4619 PRINT " When the maximum junction temperatures for the components are sp 
eat ved,” 

4629 PRINT “the maximum steady 
ature is" 

4630 PRINT “calculated for each component. When the tteady state power of each 
component“ 

4640 FRINT "ts epecitied, the eteady state junction temperatures are calculated. 


ie 


wT 


EUS Bl 6 


to 


neg 


creeen Will return to 


Df 
ao 


due 
5 
Of) 


quired to @ither return to graphics.‘aloha or produce a hard cap 


tate power level that wil? result im that tener 


$656 FRINT “In zgither situation it 13 also neceszary to suoecify the case to junc 
tion" 

4€69 PFEINT "thermal resistance Rj oc (Deg Crbatrt?. The thermal model usez the ca 
mponent” 

4679 PRINT “surface temperatures far heat transfer calculationg and Pj_c provide 
s the link" 


ri 
8& 





RUTOST .. DRIVER FOR: THEPMELEN 


O17 


4638 PRINT “betucen the component power, junction tenptrature and the surface t 
mpér ature, " ; 

4630 PRINT “If Ri_c 15 specified as zero (8) then the case surface temperature w 
mil be * 

4700 PRINT “squall to the junction temperature." 

4710 PRINT 

4720 PRINT " After all component power level ar junction temperatures have & 
een set," 

4730 PRINT “the complete list is dizplaved in the alpha made to allow checking a 
nd" 

473G@ PRINT “changes. Correctians are inzerted by entering the incerrect regian 
number then" 

475@ PRINT “entering the cerrect values in respence ta the question asked. If d 
eziced" 

4766 PRINT "sa hard copy af all data for the circuit beard w11] be provided from 
Bide PPV AMVGIag = 

4770 PRINT 

4700 PRINT “ The next section allows recording of the ciecuit board deseripti 

ve data " 

4790 PRINT “on to a maz? storage media. This should be done. The recerded data 
file may oe" 

4600 FRINT “accessed at same later time either in BORFDS for editing and chang 
€s or" 

481G PRINT “directly im THEFML to perform the thermal analysis. BOARDS will 
Grieatte cine 
4820 PRINT “the n 
of iT} 

eS PRIHT "“suffici#nt size Sxieews,. it way be wsed. All 312 deta in that file w 
a 

$230 PRINT “be permanently lost. Information concerning the minimum data file = 
ize 13s" 

45546 PRIHT “pretented by the pregram to help in this decision. " 

4360 PRINT 

437@ PRINT “ Burlt an error traps threaughout the entire THERMELEY sustem will 
save the " 

$330 PRINT “uzer from lore of previous inputzi in cas2 of errors. Information 36 
out the” 

$399 PRINT “errar 12 prezented and using the error meszzage guide on the plastie 
slidz outs” 

4900 PRINT “below the screen, the user may be able to make correctians. When re 
ady, as" 

4910 PRINT “signaled by CONT bey, program flow return2 to a previous point and 
operation" 


te 


essary data file to record the description tut f a data file 


4926 PRINT “retumes. The data recording zectian where file names are entered 13 
particularly" 
4926 PRINT “prone to tpelling errors or entry af incarrect masse storage urmit spe 


eit vers.“ ; 
940 PRINT "Be careful tut remember th system will attempt to catch those inevit 
able errors" 
4550 PRIHT “and act on them before they Gecome fatal.” 
4966 PRINT 
4973 PRINT " The end of a cycle through BOARDS if now complete. He the page 
heading" 
4939 PRINT “that will appear states, WHAT NOW 2. More work with EORPDS 13 po 
si6i@. The" 
4994 PRINT “user may either input anether circuit beard deteriptian from the kev 
board and" 
S@69 FRINT “record that to mazes storage; or, he may retrieve a different circuit 
board" 


oe 
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AUTOST .. DRIVER FOr. THEPMELE:: 


SO10 FRINT “descriptive data set from mass storage for checking and correctians. 
SO2G FRINT “Another option is ta perferm the thermal analvsizs of the circuit boa 
rd wsing" 

S836 PRINT "the third pragram in the THERMELEN system, THERML." 

$640 PRINT 

$858 5 eal 

S¥6Q@ EBlanks=56 

S070 IF P= 3 THEH GOSUE Pagepre 

SO2O@ PRINT " EFefore an explanation of the program flow mm THERML, same exp 
anation of" 

SO70 FRINT “the use of EQRREDS ta edit previously recorded data files 13 in ord 
Sipo Wins 

Si9Q FRINT “sopticn may be accesed through the use of AUTOST as saplained on th 

e first page" 

Si1@ PRINT “of these instructions or the BORRLS program may be directly enters 


d into the" 
§120 PRINT 


45" 
S1i3@ PRINT 
Sida PRINT 


here and" 


$158 PRINT 
ez the " 
Sié0 PRINT 
ear," 

$1790 PRINT 
Siga PRINT 


e data," 
$190 PRIHWT 
BE YP Pen 
S260 PEINT 
eS Cimee. th. 
S210 PRINT 
the regions 


S229 PRINT 
gions in” 
S230 PRINT 
rie) Witatat og 
S24@ PRINT 
Bus * 


S250 PRINT 
rcuit board 
seem FRIHT 
the leads" 
5276 PRINT 

vels," 
S220 FRINT 
sented" 
$290 PRINT 
ata set may 
$330 FRINT 
S319 FRINT 
S320 PRINT 
Ssyztem." 
§339 PRINT 
rmine the" 


“computer with the command’ LORD “SCHR EFC24°."EBORRDS 
them Press EXECUTE * 


"Cr course the appropriate torage specifier skiouw 


2 £1] 


when entering th es name for any previously recore 


“Operating and Programming Manual fer the 9545 :f the 


5 Follewing the input of Name that 


a ea gata file will be read the variables that 


i? 


= 


"the keyboard will te define Seat Eis a laa ly 


"In graphics mode 


and chang Zpecifare 


CIMpPone 


“may be wade. Hiei change ¢ 


tor 


any 


Way. THI majo ion of the board must be da 


ca next and then the 


= 
= 


Wy 


VPP SEA iota ao z 


"betweeri will be labeled on ta the graphics pi 


regvens 


S 


“Changes will be allavwed toa the numbers but mat the 


lel? ae this alaa Con ard Input. Al 


"or 


"jJunetion temperature to jumetion thermal 


"for Thi eqdite 


“then be 


ehecking and car 


recorded either back ile or 


There are two demonstration data file: included 


"QEMU-T contains «2 typical circuit board 


ay 
W 
e 


‘oO 


numbers 


phiysi12al 


reel 


in the 


descriptian needed 


MTs, 1's CHR 


la uzed both 


be 
gd data file. 


stave is not ¢ 


the deseriptiv 


are normally = 


be drawn oan th 


that 


Ls 


occupy 


he number of re 


ne new Bea 


De 


cfure of 


~ 


ist af 
Bt ane 
do descriptive d 


to a new File, 


THERTELE. 
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AUTOST .. sR tVEP PUR) THEFMELES 


S340 PRINT "steady state junction temperature Cie component power levels are epe 
Carried). * 
S350 FRINT "DEMO-P contains a different circuit board far which maximum powers 
fevels are “ 
360 PRINT "determined in the thermal analysis. The us2 of either of 
be nelpful” 
S370 PRINT "ta familiarize the user with teath BOARDS and the last program in t 
he THERELEX” = 
S330 PRINT “system, THERML. " 
5390 PRINT 
5408 PRINT " THERNL creates the mathematical madel, performs the analysis of 
the circuit” 
S410 PRINT “tossed and peoduces the output, The variables used in the thertwal me 
Set, are set" 
S42@ PRINT “using either 4 data file from mast Storage or they ar 
ommon black" 
S430 PFINT “when TREFML is loaded fram EQARDS. There are no correction oppe 
Peunities” 
3440 PRINT “for the circuit board descriptive variables in this program." 
S450 PRINT 
S450 PRINT " Assuming that THEFML hat been loaded from the Hhat How option 
Pest in ” 
SerQ0 PRINT "“EUREDS, the first inpuy 18 the inlet tenperatureCdeg C* of the cso 
ong air.” 
S420 PRINT "After this is entered and printed on the zereen, the volumetric air 
flow" 
3990 PRINT “rate CNA37sec) i: request 
special” 
S500 FRINT "function keys are valid in this program, the kevoade overlay should 
remain and" 
S516 PRINT "FO (Backeup? may De used to return ta a previous question when input 
errors sre" : 
S520 PRINT “made. Th 
rack mounts." 
SesO PRIN, "This Spacing and 
ary air duct" 
5549 PRINT “containing the circuit beard. When combined with the amount af ain 
flow for" 
3598 PRINT " 
re" 
S568 PRINT “determined. Since all the power dissipated on the cirewit board nue 
t be" 
S579 PRINT "removed by the air Flaw, 1% i¢ important for these values to be a2 p 
re¢cise” 
SS2G PRINT “sz pozsible. After the thermal analysis if complete, there will te 
Opportunites 
S599 PRINT “to altar tneze important air flow paramters and examine the effects 
on the" : 
S630 PRINT "sutput.” 
5210 PRINT 
S629 Pagenum= 
S638 Blanks=6 
S640 IF P=6 THEN GOSUB Pageprt 
Seo8 PRINT ™ Before the analysis begging, the canv 
. The" 
S656 PRINT "analysis conzist2 of assuming 2 solution then defining 2 s2t of Sinmu 
taneous” 
5670 PPINT "“zquations Cone ff 
r* 
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S660 PRINT “or the junction 
OQus results" 


Lemp 


39690 FRINT "Cthe assumed values 
ference" 

5706 PRINT “between these values 

ults are" 

S710 FRINT "prezgented in graphic 

results" 

Sf20 PRINT “are printed to the ¢ 

tered, “ 

5733 FRINT “The closer ta zero oa 
proces:" 

S740 PRINT “takes. Default valu 


1% change in" 


DRIVER FOP THERPNELEX 


= 


=> 


eratures. The rzsult ane compared to the previ 


for the first iteration) and if the larg 


less than 4&4 maximum fet By the user, 


If the canvergence criteria 12 not 


in algha mode and anather itteration iz 


criteria, the longer the 


D 


00 


roteria ar S a) (> mr 


Te 


for the convergence ¢ 


S750 PRINT "power. These tupically require 2 to 5 itterations Gefore they are m 
et. Each" 

3°60 FRINHT "“itteration tares F ta 100 see to perferm depending on the number of 

regions." 

S?°Q FRINT "Az the solution procedes the user way View the intermediate results 

to watch" 

Tach erRiNT “the progress. " 

39738 PRINT 

S60) PRINT " The final result? are written onto a picture of the circuit boar 

d with" 

393810 PRINT "“sach region containing companent tupe, junction tenperature, power | 
ev2]l and" 

S320 PRINT “case temperature. Empty regions cantain anly the temperature af the 
Calrecuiiits 

S839 PRINT “board. Those junction temperatures within SX af the maxitum and tha 

ee power" 

S340 PRINT “levels within S% of the minimum are starred Cer) for 2asy reference 
as troubl=" 

3290 PRINT “Spots. This graphics autput is automatically dumped to the printer 

to insure" 

SecarPRINT “that a2 hard copy of the results exiss." 

5370 FRINT 

S826 PRINT " Thiz completes a cycle through THEREML and again the Question 3 

3 What Now 7" 

5890 FRINT “EGHFDS may be returned to core, to make changes to the circuit boa 

ed-or” 

S908 PRINT “to enter a new circuit board. Ansther analyveiz of the same circuit 

board" 

$3919 PRINT "may be done with a new set of air flow paramters or, a mew cireuit 6 

oard" 

S320 PRINT “descriptive data cet may be read in from maze storage with THERNL., 

n 

5938 PRINT 

33946 PRINT “ An additional option is sensitivity analvet2. Floate of the mani 
mun " 

S95G PPINT "Tjune vs. Air Flaw Pete aor the minim Power va. Air Flow Rate mau & 
e produced." 

S960 PRINT “A maximum air flow rate if specified and five separate analwies are 
performed" 

S970 FSINT “and the results plotted and dumped to the printer. The mastmunm air 
flow rate" 

59S0 PRINT “specified should te an integer multiple of five to make for tetter 1 
ooking axez." 

S990 PRINT "It is also possible te produce hard copys of the printed rezults for 
each of the" 


32 





Helo eee 


PRIMER COEUR] THEE MELE < 


6600 PRINT “atr flow rates. Upon completion of this sensitivity analy3s13s, pragr 


am flow" 


6G10 PRINT "returns to the aptian 


6920 FRINT 


eOsSu PRINT "“ Termination should te 


option,” 


€@40 FRINT “This will insure that. 


that the" 


6650 PRINT “proper graphics parameter 
u 


See PRINT Lititad, TRECS29, “GOOD LUCK" 


6970 Pagenum=s 

6836 Blank s=15 

6990 IF P=0 THEN GOSUB Pagepre 
6163 PRINTER [3 1e& 

6116 RETURM 


Df 


list prevuiousts discussed. 


dane under program control using the final 


Standard key definitions are returned and 


3 are set for the mext user of the computer 
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85 ! 
98 \ 
=) OPTION BASE 1 

160 FRINTER IS le 

POS COM Map, Names, Pict lO1SE991, Gy 
Po COM SPF ACSO VAST sso, 
Me «€6©ECOM INTEGER Itupec Sa. Nid. Su 
126 «SHORT LecSh>,te: Sis 

125 INTEGER NpintSa> 

136 DIM S070). Nsuzet22)} 

135 IF Map=Q THEN Start 

Pe Start curs OW Map GOTO Oldpict_correct, Bdpict ,Oldpict 

fee DIS “NAPs ":Map - 

te) PAUSE 

fo Startée:s GOSUE Error 

169 Start: S£="THERMAL AHAL ‘YSIS PROGRAM FOR ELECTPONIC CIRCUIT BORFDS"” 

165 ON EFFGS GOTO strate 

179 §69<GOSUE Pagehead 

17S FRIMT “ Thit program allows the us®r te input -a detailed dezeription of -an 
electronic” 

190 PRINT "sircuit board and perform a thermal analys12 to predic® either the = 
teady state" 

165 FRINT “tenptratures of the companent 
onent power" 

196 FRINT “level that will result in the stead state +t 
the user." 

195 PRINT "The description can come from a data fil? previously created by this 
program" 

206 PRIHT “or can be entered at this time." 

205 Anst="HN" 

Se VairUT “pO YOU VESTRE TO RETPIEVE A FREVYIGUSLY STORED DESCRIPTION <N OP 7s", 
Ans : 

25 oF hise=H5RCE UP” THEN ted 

226 «#4oTF CURPCE AnetlCi,t)s="N") OF CUPS CRnstll,1j9="V¥"> THEH 235 

225 GOSUE Errin 

239 GOTO Start 

eos TF CPUtCAns¥(t,117="N" THEM Edpiect 

240 GOTO Oldpict 

2945 Oldpicte: GOSUE Errar 

Coa Miemict: ! THIS SECTION FETRIEVES Fl EGARD SESCRIPTIGH OFF A MRSS STORAGE DEV 
LEE 

25S ON ERRGR GOTO Gldpictre 


323059], E91, Bdh.Sca, Thick_b, Tem_s0l.,kb,A1,K1 
PowsSG* Py oC 5a? 
) 


I Hear. Nur, Hreg 


2 
Pp 


Th th 


a 
= 
ba} 

x4) 
Da] 
% 
% 
os 
Of 

1 


euedls are giesn oor the comp 


mprraeture sprcitied Ey 
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BOHFIS .. DATA IHPUT FOS THERHELEN 


268 Olde=P] 

265 SF="BORRD DESCRIFTION FROM MASS STORAGE DeEVvIce” 

270 GOSUR Pagehs ad 

ero FRINT “ The data file countaining the board description must have Seen st 
ored by " . 

280 PRINT “thtz program. Enter the data file mame below, be gure to include th 
e mass " 

SooeePRINT “stomage unit specifier af needed. 2g 2T14,3FS.:v1l2 ec" 

290 EDIT “UNDEF WHAT FILE NAME IS THE CIRCUIT EFURED FILED “input or change bela 
wd", Name 

295 IF Names="BACK_UP" THEN teu 

300 IF HameS="NULL" THEN Oldpict 

345 ASSIGN #5 TO Hames 

SiO  FEHD $5, 1 

313 READ 4S sHames, Pict 1b1ls, Cases, 8d], Bdh,Sca, Nar, Nyr,MNreg, Thick _b, Kb,AI,K1,Tem_s 
ol 

320 FOR T=1 TO Nreg 

S25 READ 85; ityper ls, 4c1d, 1612. Tix log Powsl), Rj och 

336 FOR J=1 TD 4 

soo FEHR @5;Wi0J,1> 

340 NEXT J 

sas NEXT I 

350 Oldpict serrect: GOSUE Board pict 

Som GRAPHICS 

3e8 FOR I=1 TO Nreg 

see IF I=! THEN eS 

37@ IF I<Nxrei THEN 320 

Sem IF Cltypeclos10>o AHD  Itype I-Haro2t0* THEM 48a 

280 IF Citype tl s25) AHD “Itupe I -1923) THEN Fan 

3385 IF ItypetIo=0 THEN GOSUB Empty 

398 IF Itupe: l= THEH 4a 

335 OW Itypecl) GUSUB Hdipt4 Vidi pit Adipls, Vdiplé, Hoi pls Vdipgd,Errolde, Errelde 
gsHAIpsO Ydipsa,Flaris Flarod,f)ar an Flared 

4900 NEXT I 

405 GOSUE Bd cha 

410 IF Ans$="BACK_UP" THEN Oldpict 

413 GOSUB Case rp 

420 IF Anss="EACK_UP” THEN 495 

425 GOSUE Leads 31d 

430 IF Ansf="BACK_UP" THEN 415 

435 GOSUB Leads cha 

440 IF Ans$="EACK_UP" THEN 425 

445 GOSUE Téenpin 

450 IF Ansts"EBACK_UP* THEH 435 

455 GOSUE Stow 

466 IF Anss="BACK_UP" THEH 445 

465 GOSUE What now 

age 1F AnsS="“ERICK UP" THEM +55 : 

475 GOTO Start over 

$90 Edpicte: GOSUE Error 

435 Edpict:! THIS SECTION IS THE HORMAL ENTRY FOIHNT FOR HEN BORPD ITHFUT 

490 OH ERROR GOTO Edpicte 

495 Oldes6 

S60 SF="KEVFORFD INPUT GF CIRCUIT BORFL DESCRIPTION" 

S65 GOSUB Pagehe ad 

S16 PRINT " This routing draws a Blank cireuit board and divides 12 inte regi 
onz of "“ 

SiS PRINT “interest as determined by the weer. There are a maximum of S& regions 


avarable" 


oS 





BORRUS .. DATA INPUT FOr THEPNELE.. 


S20 PRINT “with ane companent/region. The circuit board 132 then prezented on th 
e * 
S25 FRINT “CRT either normal size or scaled up or dawn by some integer if 
or smaller" 
S3U PRINT “than 120mm by 170mm. The specific components 
er keys" 
SSS FRINT “in the upper right cearner of the kevboard. If you de mot have a key 
code "“ 
S4@ PRINT “overlay for the keys the program will gravide ane for vou. Informati 
on to be" 
S45 FRINT “used in the thermal analyvsis routine is entered in thiz zectian of th 
€ program.” 
S50 PRINT “You will have the option of recording the board description ants mass 
etorage.” 
Jo PRINT 
S68 PRINT "Conductivity of the board will default ta .2942 Watte-N-degk with no 
Tao lesug 
965 PRINT LIHC1>, "NOTE : LENGTH I5 DEFINED TO EE IN THE DIFECTION UF AIF FLOW 
iy 


larger 


me selected with the us 


Df 


PU 


a 


S74 MAT Itupe=ZER 

Ses Anss@"HULL" 

$s0 INFUT “WHAT IS THE LENGTH CIF THE BOARD IW MILLINETEFS",Anss 
S385 IF Ans$=“BACK_UP" THEN Stare 

$36 IF Ans #="NULL" THEN S75 

S395 Bdl=AESCVAL SANs £23 

BOW PRINT LINCI*,.TAE.1@),"LENGTH ="35d)l3" mn" 

60S Scale xsIHTe bal 1 Filer t 

eve [FP Pdi<i7i-2 THEN Scalex=.% 

Gis AneP="HULL” 

620 INPUT “WHAT If5 THE HEIGHT OF THE BORFD IN MILLINETEP:" Anes 
€25 IF Anss="EACK WF" THEN Bdeiet 

630 IF Ans#="NULL" THEH o15 

635 EBdh=AESCVAL CAME £39 

640 PRINT LIN¢1/,TAB.10+, "HEIGHT ="SEdhs" mn" 

645 ScaleveINTCBdh-1li%+1 

650 IF Bdh<lel-2 THEN Sealeyve.§ 


655 Sea=NAXCSealev,teale.? 2G Pde lie We PILL eT OPSPCny 
663 IF Sca=1 THEH o3o 
SES Mr Se exctl wiellelé) ey (oie, MsacteeAglMylScgek ce UGE TO SHALE Si2ze uF The fen 


RD CRT DISPLAY WILL BE 24 SIZE" 

Goo  lFeeca-i THEW PRIWMT LIN“ 2), °+eeeNTE++<+ DUE TO CATGE Selfe DF THE BGR 
Ruger) UlorPendy WILL BE { -*3 Sea; “SIZE” 

675 Ans#="NULL" 

62¢@ INPUT "WHAT IS THE HUMBEF OF DIVISIONS .PEGIGNS> IN THE HOR ICOHTAL DIFECTIO 
N“,fns$ 

625 IF Anst="EACK UP" THEN 615 

690 IF Anzf="HULL" THEH 75 

695 NxrzAESCVALCAns =») 

wom PRIHT CLACTS THES 18), "8 Areg =" Mer 

765 Ans$="NULL" 

710 INPUT "WHAT IS THE NUMBER OF DIVISIOHS “REGIONS? IN THE VERTICAL BDIRECTICH" 
» Anes 

foe lr Hnss=" RACK UP" THEN er 

720 «#46oTF Anst="HULL" THEN Tos 

725 Nyr=RESCVAL CAE $9) 

730 PRINT LINC1L), TAEC1O9,"# Treg ="SHyr 

735) 0 Nreget«reHyr ! Nreg = HUNBEP OF FEGTUNS 

740 IF Wreg* Si THEN Feo 
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BOAF DS .. DATA INPUT FAR THERMNELE™ 


735 BEEP 

3G PRINT PAGE,LINCLS),SPAC3SB2,"TOO MANY REGIONS" 

SS WAIT 1009 

768 GOSUE Errin 

765 GOTO Bdpice 

778 Ans$="NULL" 

Gin INPUT "WHAT [3 THE THICKNESS OF THE BORRD* wm)" Rest 
@oe@ IF Anst="BACK UP" THEN Tas 

78s IF AneF="NULL" THEN F759 

798 Thich B=RESCVAL. Ans s)> 

Zoe FREAT LINC1>, THECIOD "Thick ="5 Thick b3" mn” 
800 Ans$=" 2942" 
80S EDIT "WHAT IS THE THERMAL CONDUCTIVITY OF THE BORED? CWATTEeM -Jdeg Ko 
ere IF Ans$="SACK YP" THEN CSS 
815 Kb=ABRSCVAL CANS §> > 
820 PRINT LINC1>, THEC1G5, "Cond 8 =a"skb 

25 EDIT “INFUT A SHOFPT «<5 CHARACTERS? WAFD TESCRIPTION GF THE CIFCUIT EOQHFD 
HERE ",PictIbls 
S30 IF PictlGIs="EBACK_UP" THEN S50 
Soop IF LCENKPictibifs<Si THEN sSu 
845 GOSUB Errin 
845 GOTO 82s 
€5G GOSUB Eoard pict 
S835 GOSub Graphk ey 
860 IF Anss="ERCK UP" THEN Bopict 
865 GOSUB EJ cha 
See IF Answ#e“SACr UF" THEN S50 
875 GOSUP Case_tip 
889 IF Ansg="SACk_ UP" THEH 8625 
885 GOSUE Leads 
692 IF Anz$="ERCK WE" THEN 375 
8395 GOTO 435 = | END OF Bdpict 
994 Foard picts: GUSUE Error 
Sop cose pict. ! This “ECTIGHN PLACES RA BLANY BURAD OW THE SCREEH 
910 ON EPROF GOTO Esard picts 
915 PLOTTER I3 "GRAFHICS"” 
929 GRAPHICS 
925 MSCRALE 9,140 
Sen CSPZE 3 
Sco LURG S 
949 MOVE 26,1340 
945 LABEL "---sir flow----> " 
956 Edh=Edh’Sca 
$55 Bdl=EBd)l7Sca 
960 LOPG é 
966 LUIR Five 
976 MOVE 175,74 
975 IF Sea>l THEN LAEEL "THIS FICTUFE IS 1L-"SVALECS ease" SIZE" 
Soun eo seaxt THEH LABEL “THIS PICTURE IS 2s SIZE" 
965 LORG 5 
993 LDIF 8 
995 MOVE 92-LEN¢CPictiblf.-2,1235 

1006 LABEL USING “K"sFictlers 

16605 MOVE 0,9 

1016 DPAW 8, 5dh 

1015 DRAW Bdl,Edh 

1920 DRAW Bdl, 

10¢5 BRAW 4,9 


C4) 
ol : 





BORRDIS [ATA INFUT FOR THERMNELEX 


~ 


{G30 LINE TYPE 


2 
1035 Lr=BaleNever (US = ibishitailal Wie [s 
1048 Hr=Bdhe tle t HF = HEIGHT OF E 
1@45 FOR T=1 Tao No r-i 
1858 MOVE IeLr,9 
1655 DRAW I*tr,Bdh 
106G NEXT ! 
1065 FOR t=1 TO Nur-l 
1070 MOVE O,1+Hr 
{ars DRAW Edl, leHe 
10350 NEXT ! 
1608S LINE TYFE 1 
1090 LORG 5 
1695 Nr=2 
1148 FOR Je=tHur TO 1 STEP -1 
BUGS FOR [T=1 TO Ner 
1119 Nr=hret 
i LS SONS SLre! Teloete 2 
1129 YONr Ss JaLoeHr+ Olen 32> 
25 MOVE KONTO. Nr 
1139 EAREEC USING “K"s VALS EHrs 
less PEs) 
1t4¢0 NEXT J 
1149S Edh=Bdh-Sea 
1150 Edl=BdléeSca 
Ita WAIT 120% 
1160 EXIT GRAFHICS 
1165 RETURH 
11°78 Graphkeve:s GOSUE Errer 
1217S Graphkevs! HEFE IS SUEFSOUTINE TO ALLOW IWFUT OF EQRRE 


DATA THPUT 
1120 ON ERROR GOTO Graphkeve 


Liss Anss="¥" 

1196 SZ=“BEY COLE OVEFPLAY” 

1195 GOSUR Fagehead 

tee PRINT “ This fection allows tne components ta be def 
screen" 

1295 PRINT “using the keys in the upper right carner of the 

ous key" 

1219 PRINT “deffinitions are not valid while entering the ¢ 

be" 

1215 PRINT “suring later portions of this program. As the 
to each" 

1229 PRINT “region in numerical order prees the corezpondin 

€ curser to" 

1223 PRINT “sppear at the next region. All region’ must be 
kO=>EMPTY.” 

e238 PRINT 

Pecomroie HUlcs kit—wal st reter toch cantiers cre + lat 
1240 PRINT 

12435 PRINT “ If you do not have a plastic kev code querd 

#71290-51545, I will make 4 paper one fer vou." 

1256 Anzs="N" 

1255 IHWFUT "DO YOU HEED A FARFEr OVERLAY (CN ar Yo?" Ans 
1260 IF Anss="EACr UP" THEM PETE 

tees IF UPCSs ness C1.t2s2="H" THEM 1328 

1276 FRINTER IS 8 

1275 PRINT SPACI&:, "TERR OFF FOR CONPOHENT DEFFIHITION KEY 
> 
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ACH FEGION 
ACH PEGIOH 


DECRIFTION FROM KEV 


ined and drawn on the 


keyboard. The previ 


Thparents Eat wt) 


flashing Tursor moves 


gQ kev and wait for th 
defined even if with 
packs.” 

ay filled im (HP pact 


CODE OVERLAY LIne 





28a PRINT 
t2SSseeRINT 
BOVE KEYS" 
1290 FRIWT 
T aS sa 

1295 PRINT 
1390 PAUSE 
1365 FRINT 
BELOW KEYS 


BOARDS 


HOP IZ 
BDIP14 


“ 
we 


"TEAR HERE 


EMF TY | 


Chaz 


ENGI 


a SS, 


2. UAT THRE FP THERNELE.. 


VERT 
GIFe+ 


Oh E R T 


VERT 
DP LS 


HORTZ 
DIFI4 


Dine 





HOR IZ | 


DIFS4 | FLACE A 


T 


~----------+--------------------------- THEN PRESS CON 


| VERT [| FLAT | FLAT | FLAT | FLAT | PLACE 


1310 
1315 
1328 
1325 
1329 
1335 
1349 
1345 
13509 
1355 
1368 
1365 
1376 
1375 
1320 
1385 
1330 
b3a7 5 
1436 
1485 
14156 
1415 
1428 
1425 
1433 
1435 
1446 
1445 
1459 
1455 
1469 
1965 
1476 
1475 
14S6 
1485 
1430 
1495 
15468 
1505 
13156 
1315 
1522 
1325 
1533 
1335 
1540 
1545 


1550 


PRINT “| | 
PRINT LIN¢(4) 
PRINTER IS 16 
1 NOTE THAT THE -EY# IS THE CoObe 
ON KEY #4 GOTO Empey 
OW KEY #1 GOTO Hdipld 
ON FEY #2 GOTO Vaipl4 
ON KEY #2 GOTO Hdinies 
ON KEY #3 GOTO VYdipls 
ON FEY #5 GOTO Hdipss 
OW KEY #2 GOTO Vdipsd 
ON KEY #7 GOTO 1435 
ON KEY #3 GOTO 1435 
ON KEY #3 GOTO Hdip40 
ON KEY #19 GOTH Vdipsa 
ON Ret 811 GOTO Flaris 
ON KEY #12 GOTO Flatc4 
ON REY #13 GOTO Flat4g 
ON KEY #14 GOTO Flatad 
IF Olde=FI THEN FRETURH 
GRAFHIC3 
FOR T=1 TO Nreg 
IF ItypecIo=149 
OMS FSG NG GUD 
POINTER ACI, ¥i lo, 2 
thts lomtichitbes>s LVEF TOCALEOW Fag Woe 
GUTO Loop 
Nextr: IF Reg cra’ * THEN FETIP TH 
IF I4¢Nreg THEN 1475 
Leo Gidetcr i THEN WAIT 1ue=Heeg@1. S 
POINTER 9,48,<2 
SS (APRA (cS 
FETUFN 
Hest I 
EmprusGOSur Erazenum 
Itype Cl shpindl she cls ele C1 =0 
GOTO Hextr 
Hdipls:Gosle Erazeniun 
Npin¢lo =14 7 
IF ItypeCI>e2 THEN LDIF PI. 2 
CAPEL WSITHG "KV °Dtri4” 
WeCI=be=.25*25.4 
LeClyelLe=. 725+25.4 
IF CItupec seit. OF 
Teup_ dimeble ct) 
Wet To stWe=Lec 1) 
LeClosle=Temp_ dit 
IF ItypeCI>=6 THEH ItypecI=1 
Deagdip; ! THIS SECTION WILL DFA ALL THE DIF FIGUPFES 


DIP43 | 16 FIH | 24 PIN| 40 FIN| €4 PIN [" 


POR CTEre OF ELEMENT STURED SEH liye Oro 


THEH Ne .tr 
Loop? 
INTTERUET KES 


UF THE PRI hig 


1 ACTUAL WIDTH IM tte 

| ACTUAL LEHGTH IH tn 
fItypecIo=0> THEW 1545 

1 HEPFE LENGTH AHD WIDTH TRPAHS 

} 


NSE0 SUCH THAT LENGTH 
Is DEFINED TO EE IN THE EE. 


F 
DIFECTION OF AIF-FLOW 


“a 
rAiy 
‘we? 
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1SSS 
156a 
1S¢5 
tsr0 
1505 
339 
1525 
1520 
132° 
1208 
16085 
1610 
1615 
1520 
L625 
12396 
less 
1640 
1645 
1658 
1655 
1659 
1625 
1678 
1e¢5 
1636 
1635 
1698 
1635 
1790 
17°05 
1710 
leis 
1729 
725 
1°30 
1735 
1746 
17s5 
758 
Liao 
1768 
1765 
1778 
ian 2 
1739 
1735 
1730 
eel) 
1309 
1205 
isis 
115 
1326 
1225 
132% 
1335 
1642 


BOARDS .. DATA INFUT FOR THERMELEX 


Le=elerSe 

eet oa 

MEMS RSC nobs. Joo lacie -@ 

DRAM Sor, Z.vtT +e 

DRAW oe: Sone le We Pieters 

DRAW NC Teele 2.70 T--He 2 

DRAW wt lo-Le 2, “We 

LOIF @ 

GOTO Nextr ! End of Uraw_ dip 


Vdipidgs Itoupectl se 

GOTO Hdipls 

Hdiplté:coSUB Erasenum 

Npin¢loets 

IF Itypec{l>=4 THEN LDIF PI. 2 

PAP CEUs Nig "KES DI P16” 

WeCTseW2=.25-25.4 1 WIDTH It mn 

LeCToSle=, 3259*22.4 ' LEHGTH IN tam 

IF Itepe Toc s4 THEN Itopectlss3 

IF Istype-Ie:. 4 THEN Drawdip 

Temp_dimeWect> 

WeCT stHe=Lec 1) 

Lecl>=Le=Temp dim 

GOTO Draudip t End of Hdtpils 
Vd iplésltype: Tied 

GOTO Hdipis 

Hdip2s4i505UB Erasenum 

Npin’ lo. =24 

IF Itypecl-=6 THEN LOIF FI-2 

GarEel USIMGs “KS "HIP 24" 

WecTaWe=.55-25.4 

Lec I>.=Le=1l1.25+25.4 

PPeitope classe THEN Itupect >= 

IF Itype I o¢e5 THEN Urawdip 

Tempe _ Fdimeber Ts 

WeClvehe=lec I> 

LeCI>=Le=Temp_ dim 

GOTO Drauwdip i End of Hoipes 
Vdipesi ltupec lise 

G6TO Hdipes 

HdipsOsiF «I MOD Ner=@> GF CItypecl+1)2109 AND (Reg chasd> THEN Loap 
GOSUE Eraserum 

T=IThn=I1+1 

GOSUE Erasenum 

f=t-1 

Npin Tl ehpins Iho =29 | THIS IS FOR EACH HALF OF THE 49 FINS 
IteymeClseltypect hoes 

MOVE ACTv4ebr’72,7C1 4 

LAEEL USING "K"3 "DIES" 

WeCl swe Tnosbles.eeeh.4 

Le¢lsele In eLe2e5.4 ' THIS I3 FOF EACH HALF [tt EACH FEGION 
WeeWe-tes 


MOVE ACTo+Lr-c-Lle, fC loathe 
DRAW KCl >4+br7e-Le, (Clore 
DRAW K4Clatebrv2+le, WC ldI-Ne- 
DRAW “Cl sebr/2+Le, Yt Toes 
DRAW SCI ¢Lr. 2-Le, fC lo+he- 


fa ha he Pe ha 
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1945 
1S50 
1835 
1$69 
1655 
1378 
1S73 
1880 
1335 
1690 
1S95 
1990 
1985 
1919 
Leis 
1926 
1925 
1938 
1935 
1946 
1945 
1956 
Ne ib 
1968 
1965 
loro 
197% 
1939 
1933 
1996 
Loo 
2909 
2465 
2016 
2015 
2626 
2e25 
293% 
2035 
2046 
2045 
2050 
2055 
2060 
2655 
2078 
2075 
2420 
2035 
25968 
2035 
2146 
2165 
2119 
re i) 
2120 
2125 


2139 


EGRERS . URTAO UCU Eas THEPMELE.: 


GOTO Nextr 

VdIpsOSIF I+HMir‘Nreg THEN 1425 
GOSUB Erazenum 

l=Tnh=l+Nxr 

GOSUB Erasenum 


I=I-Nxr 
Npin¢ lo sNpine Ih sia ! THIS IS FOR THE HALF GF THE 46 FINS IH ERCH REGION 
Itype Cloel[tupecIno=t0 


Laie (hess 

Gwe Aches itl e—He ze 
ERBEL USING “Re. "DIP to" 
LDIR ¥ 


WeCToeWect Tho sles. 6+25.4 
LecI>=LetInv»v=le=25, 4 ' THIS I5 FOF HALF 


WesWe- Sea 

Le=Levseca 

MOVE “Cl PeWe 2, Y¢ lo-tHr-2eLe 
DRAW MCT O<We2 2.Y CL -Hr-S+Le 
PAW KOT > -Ne- 2,701 -Hrvf-te 
DRAW KCL +bhe- 2, Yi 1) -Hr-2-Lle 
DRAW KClo+he 2, 019 -He7ct+le 
LDIR a 


Temp_dim=LecI>!HEFE TRANSFOTE Le AHD Ne TO MAINTAIH LENGTH GEFF WITH ATF: 


Lec ele Iho eWe ID 

Mec ldeWec Iho =Temp dim 
GOTO Nextr 7s 
Flatis:IrupecI‘2il 
GOSWUB Erazenun 

Mpintld =1e 

LABEL USING "K"s"1E" 
LezWeaWef Tl =eLeCls=4.57 
GOTO Drawdip 

Flares: Itypetls212 
GOSUE Erasenum 
MpincI>=24 

LAEEL USING “KNe "sa" 
LezWeeWet Tp elLecIo=7.75 
GOTO Dranudip 
FlatrsO:ltupecCIs212 
GOSUB Erazenum 

Npincl =49 

LAEEL USING "K"3 "48" 
LezwesllecT eLet lo ele.i19 
GOTO Draydip 

Flatedi Itype: Ts=14 
GOZTUE Ersazenum 
Npincl>=a4 


LAEEL USING "K"3 "FLATS+" 
Le=WeabWle Cl eLet ls15.29 
GOTO Drawdip Pah h Orc 


CUMPGHEMT DERG Lit T2 ths 


Erazsenum:! HERE WE MOVE THE FEGION HUNEER TO THE WRFEF LEFT 


Colce 3 

MOVE ACI, ¥< 1) 

PEH <1 

LAEEL USING “"K" CT 

Celce 2.575¢4 

IF Reg_cha=6 THEN PEN 1 


TOPHER 





BORED? .. Gald INPUT For THERPNELE* 


2135 MOVE XCIlo-.4ebLr.YC1> +. 4eHr 

Civeeensel USTHE “K's I 

ZiSOmNOVE ACL yt) 

elverCSicE 3.47Sca 

2igo RETURN 1 END OF ERAZENUM 
Zico ! 

2165 Bd chassGOsuB Error 
217@ Bd chai! THIS ROUTINE ALLOWS FOR CHANGE OF TYFE FOR SFECIFLED COMPOHENTS 
2175 ON ERFOR GOTO Ed chae 
2180 S$="CHANGE COMPONENTS" 

2185 GOSUPR Fagehead 
21390 PRINT " This section allows correctians ta the conponents on the circuit 
board.” 

2195 PRINT “Howevers you mau not change the circuit board itzelf. ‘fou will fire 
t remave" 
2208 PRINT “all unwanted components Cup tea 18) by entering the region number on 
the picture." 
2205 PRINT “When removing any conmpanent which required two spaces. use the lower 
region num. " 

2216 PRINT “Entering a & or preising TONT with no entry will allow program ta 
continue" 
2215 PRINT “with the sectian that allaws deffinitian of components in all empty 
spaces." 
2220 PRINT 
e225 PRINT “Femember to allow zpace for the larger canmponent: that require twa r 
egions. " 

2ta Ittsd 

f2e0 HGain: [ttelrt +t 
2240 AnsF="9" 
2245 INPUT “ENTER THE FEGIOH HUMEER TO REMNOVE COMPONENT CES AUlL Ts) = HOWE. ",Fn 
sf 

2es0 IF Anes="EACK_UP™ THE, RETURN 

2255 Reg cha=VALCAns F) 
2260 IF Reg cha=o THEN Asd comp 
2205 IF (Reg cha>@) AND (Reg cha Mregtl> THEN 2258 
2276 GOSUB Errin 

2275 GOTO Again 

2200 Reg _chatlttoskeg cha 

2235 GOSUB Erase comp 

2299 Reg cha=0 

cel omreeitt< 216 THEN Again 

23680 SS="NAKXIMNUM HUNEER OF REGIONS" 
2365 GOSUR Pagehead 

2518 ERINT * There are 14 cheng 
blems you" 
2315 PRIHT “mut redefine the board." 

ZocOmrr Ne liGs oO ae Oke gear recs, CON 

2325 GOSUE Ad comp 

2334 GOTO Ed cha 

2335 Erase conp:! THIS SECTION FENOVE UNWANTED COMPOHENT TO ALLOW CHANGE 

234% GRAPHICS 

2oveeret =1 

2350 L2Peg_cha 

es IF itype(Reg_chad=5 THEN 2225 

2360 ON ItypeCl) GOSUER Hd iplt.Vdiplt+ Hdip le vdiple, Hdined, Vdip2st,Errslde,Erroltds 
pHdip49,’dipss,Flatic,Flate+,Flatt+o, Flared 

2355 PEN 1 

23723 GOSUEB Empty 


te 
(as 


to ascomplizh at this port and tea avoid pre 


OZ ; 





BORFDS .. DATA INPUT FOR THERMELE:. 


2375 IF I¢2 THEN 3484 

2350 IF Cltypecl-1959 > AWD cltupecl>s9)s THEN 2330 

2385 GOTO 2490 

23998 l=I-1 

23395 GOSUB Empty 

2499 IF I<Nxr+i THEN 2420 

2465 IF ItypecI-Ners<s1& THEN f42n 

24198 l=I-Hxr 

2415 GOSUB Empey 

2428 WRIT SaG 

2325 EXIT GRAFHICS 

2439 RETURN 

2435 Add comp: ! THIS SECTION ALLOWS ADDITION GF COMPONENTS TO EMPT? 2FACe 
2440 IF Itte<2 THEN 2475 

2445 IF Olde=PIl THEN GOSUE Graphkey 

2450 FOR L=1 TO Nreg 

2455 IF ItupecIo<' THEN 2478 

2460 POINTER X¢CID,YC19,2 

2465 GOTO 24ce0 

2470 NEXT I 

Zee FOR t=1 TO 15 

24236 GFF KEY #1 

24c5 NEXT I 

2930 EXIT GPAFHICS 

2495 RETURN ! EMD OF ADD COMP 
2506 | > 
2565 Case type: GOIUE Error 

2515 Case_typ:! THIS SECTION ALLOWS THE USER TO SPECIFY THE CASE TYPE FOR DIFs 
2515 ON ERROR GOTO Case type 

2520 IF (Olde=P1) AND ¢Ire<2) THEN GOTO Caz Tina 

2525 ! BUT FIFST MUST TELL THE WSEP TO CHATISE THE KEY-COLTE OVERLAY 

2539 SS="CHANGE OF THE SPECIAL FUNCTION KES" 

2535 GOSUB Pegehead 

e549 PRINT LINGLds, SPACIO:. “PEMNOVE THE KEY CODE OVERLAY FOR COMPONENT INWPuT" 
aa PRINT Bee ee ee “PERFLACE THE GEHEFPRL FURPOSE .EY (ODE OVERLAY" 

Zs MICS BS Gait q MSs tpi Winksial (2efatohy 2 

Biss PAUSE 

2560 SF="TYPE GF DIP PACKAGE" 

2565 GOSUB Fagehead 

Zoro PRINT " Dusl tnline packages (DIPs® generally came in either am injectio 
n molded" 

2575 PRINT “plastic 2336 or & ceramic sandwich case. The style of case comatruc 
tion affects" 

2503 PRINT “the heat tranzfer and aust be known for the therwal model." 

2585 PRINT 


‘ 
’ 
ory 


2539 PRINT “The methods of specifying the mae fe of Gases are listed felon,” 
@eee Frei? TRB VIS>S "THESE APPLY TO THE DIPS ONLY" 


2605 PRINT LINC 2) 

feea re itt TASCLo DS "1. ALL CERRNIC™ 

Cera FRIHT TRECLO 5 "2. ALL PLASTIC” 

Qereee Rt Tebolwse 2. NHAJUP ly CERAMIC CUSEe SPECIFY WHICH ARE FLASZTICO" 
eeeeerr iit THECIG);"+. MAJORITY PLASTIC (USEP SPECIFY WHICH APE CERAMIC?” 
ARS IPRA WRC Uma ea, Weise BIS Mey inlet Sw gills (okt Siein! Wx eA eslal = 
2639 Anst="1" 2 

2oeau INPUT ®ENMTER YOUR CHOICE (1.2,3,4,5/7"*, fini 

2e4a IF Anes< -"SRACK_UP" THEN gers 

2635 PRINT BINC26,,5PR°z299, UHHEEE TOS EHER Ue WITHOUT LENSING THE EOHPD" SE THiCs > 
2600 FEEF 


(1@) 
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BOARDS .. DATA INPUT FOR THEEMELES: 


2655 DISP “Press CONT when ready to continue” 
2600 PAUSE 
2665 GOTO Case_turp 
2670 Ans=VAL CAs ¥> 
2675 IF (Ans<1) GR (Ans*S) THEN Case tupe 
2686 ON Ans GOSUE Cere, Plas, Moers, Mel as, Ane 
2635 Case chastF="CORRECTIONS To CRSE STYLE For DIF PAC AGES" 
2696 GOSUEB Paginhead 
2695 PRINT " On the screen below 18 a line that represents the case type far 
allt regions." 
2°Q9 PRINT "“Thoze regions that cantain a plastic cazed camponent are shown in in 
verse vidio" 
7S FRINT “Cl> while al) others are shown in normal video ¢13." 
2710 PRINT 
come PRINT “To male correctians enter the regian # that f2 incorrect if ne chang 


@s no entry.",LIHNCLs 


2720 FOR T=1 TO Hreg 

2725 IF I MOD 18=1 THEN FRINT SFAC1 
2730 [IF (CamerCi, 1J="9"* AND clya1e 
ATES} S) IF “Cazes(l, (Jee: AD <i 
2748 IF (Cases(i,ITJ="1"s AND «I>216 
+] 

2745 IF CCasescit,TJ="1") AND ¢1< 19> 
C193 

275a IF I MOD 18=6 THEN PRINT LING 
Zio Hest I 

2766 FRINT 

2765 Anss="NULL" 

2770 INPUT “ENTER RESTON # TO CHAHSE OF 
e7rS IF <RAnzF="NULL") OR CAnefs"ERCr _UP 


2736 
2735 
2798 
2735 
2235 
2845 
2610 ! 

2815 Ceres! ALL CEPANIC 
2820 FOR T=1 TO Nreg 
2825 Caz2e5C1I,13="6" 
2830 NEXT I 

2235 PETURN 
2836 ! 

Zeeomaleas. | HEE Pen snl? 
2350 FOF T=1 TO Mreg 
2655 Cazses(I,Ij="1" 

$60 NEXT I 

2855 RETUPN 

2270 ! 

e275 Meere: Seo ey ERMA o6c 
28236 GOSUE Fagehead ; 
23835 FOR T=1 TO Nreg 

23896 Cazef(1,1}="9" 

2875S NEXT I 

2906 Anss="NULL" 

2905 INPUT “ENTER THE HUMBE® 
2916 IF Anzt="EACK IF" THEN Ca 
2915 Anz=VAL CAN £5 


RFegl=VAL‘ Ans #3) 
IF ¢Regl-4) AD 
GOSUB Errin 
GOTd 


\Pegit=Hreg> THEN 


a 


ha 
=e 


ReglruIsVALECINTCcVAL Cas 


m & 


CAZES 


TASES 


=. 


¢ 


a8 

Y (Se Re eR ia Sista We 

RHE Re UM SeRe Wo hese Hin tes 

¥ THEM PRINT CHRe¢ ies); 1; CHAE los) SPARC TD 


THEN FRINT CHRECL2R 3" “SIS CHRE\128"3 SPA 


PRESS CONT WITH NO ENTRY IF OK", Ans 
") FHEM RETURN 


23098 


A 


Haw 222 


' END 


es(Regl,Fegils+i> 
OF I 


ase cha 


fEND UF CERE 


'END QF F) 


Ee 


SPECIFY WHICH HRE FLASTIC™ 


O 


OMPOGHENTI" Anz 


ie Oa 





BOARDS .. DATA INFWUT FOR THEPMELE:: 


2920 IF CAns°O) AND CAns<Nregti) THEN 2935 
egeo GOSUE Erin 
2936 GOTO Mrere 

e935 IF RAns=Nreg THEN Plas 


2948 FOR IT=1 TQ Ans 

2945 Ans$="NULL" 

2959 INPUT “ENTER THE FEGION NUMBER THAT CGHTAINS A PLASTIC COMPONENT" Anas 
2355 IF Ans$="BACK UP" THEN Mecere 

2950 Regl=VAL “Anz £> 

2905 IF (RegioO) AND 6 Pegi Hrege+l> THEN 2929 

2978 GOSUE Errin 

2975 GOTO 2958 

2938 Caset(CPegl,Pegije"1" 

23985 NEXT I 

29390 RETURN 'END OF Mcere 
2795 } 


3000 Mplas: SF="NAJORITY PLASTIC ... SPECIFY wHICH ARE CERSMIC" 
39595 GOSUB Pagehead 


3016 FOR IT=1 TO Hreg 
3015 CasesCI,irJ="1" 
3028 NEXT I 


3925 Ans$="NULL" 

3030 INPUT “ENTER THE NUMEERP OF TERAMIC COMPONENTS", Ane $s 
3035 IF AnzS="EACKUP" THEN Case typ 

3040 AnNs=INTCVAL! Ans) 

3645 IF CAns.9) AND “Ans<nreget: THEN 3080 

3050 GOSUE Errin 

3055 GOTO Mplas 

3060 IF Anz=Nreg THEN Cere 


3065 FOR I=1 TO Ans 

307% Anst="NULL" 

3075 INPUT “ENTER THE FESICN NUMSEP THAT CONTSINS A CEPAMIC COMPOHENT” Anes 

33838 IF Anz$="BACK_WP" THEN Mplas 

3925 IF €Regl70) AND «Fegl<Wregt+tl> THEN 3149 

3396 GOSUB Errin 

3695 GOTO 2675 

3188 Cazee(Regl,Regij="6" 

3165 NEXT I 

3116 RETURN ! END OF Mplas 
sits ! 

Sieo Anvs! EACH REGIGN MUST HAVE IT’°S DIP SPECIFIED 

si25 FOR [=1 TQ Nreg 

3136 IF CItyvpe(1><1) OP CItynatly>1Gs THEN 3168 

hl chs) DISP “IDENTIFY CASE TYFE FOR REGION #"SIS"SENTER 1 FOR FLASTIC AND & FO 
ROOTHER)”; 

314¢ INPUT Cazes CI,1] 

3145 IF CCasesCl, T]2"1"> OF CCasesCI,IJ="O"> THEN Sle 

3156 GOSUE Errin 

3155 GOTO 3125 

316% MEST I 

3165 RETURN ; !'END OF Any 
sive |! 


Sics Whasenov.! THIS SECTION IS THE FINAL SECTION 

3196 SF="WHAT HOW 7" 

3125 GUSUB Pagehead 

S190 PRINT “ You have completed one evcle through EGQARDS and have the fallow 
Ing options: " 

3195 PRINT LIN¢1),TAB: 19.,"1. FEPFORM THERMAL ANALYSIS GN "SNamese" USING THERM 
a : 


05 





RORRDS .. DATA INPUT FOP THERMELE:: 


3200 PRINT LINC1), TABC1IO., "2. INPUT ANGTHER CIRCUIT BOARD DESCRIPTION FROM KEYEQ 
ARD." 

3205 PRINT LINCL),TAEC19),"3. INFUT AHOTHER CIFCUIT BURPD DESCRIFTION FROM MASS 

STORAGE. " 

3218 PRINT LINC1), TABC102,"4. TERMIHATE. ” 

gels ! 

3228 Anss="1" 

sees INPUT "YOUR CHOICE (1,2, 3.49",finss 

3238 IF Anz$="BRCE UF" THEN RETUPN 

3235 Ans=RABSCINT VAL Ames)? 

32390 IF Ans<5 THEN 3255 

3245 GOSUF Errin 

3258 GOTG 322 

3255 ON Ans GOTO Therm) Feda,Pedo, Ende 

32569 ThermIl: DIS “WORKING LORDING THERMNL TO FERFORM ANALYSIS OF “SName$s 

seoo LOAD "“THERMNL", 25 

3278 STOP 

3275 ! 

3223138 Reda: Map=Ans 

3285 RETURN 

3290 ! 

3295 Ende: FRINT PASE.LIN 20°, S 
3386 DISP "WOFKIHG LOARDIHG STA 
3305 GCLERR 

331@ LOAD KEY "STOREY" 

3315 END 1 END OF Hiatt reau 
soap ! 

3225 Pagehead:! THIS SECTION FLACES LESIFED HESTDING OH A BLANK CRT 

3330 PRINTEP Is 164 

SSeS RTH PASE, TREN 4+-LEN Cs Se See HPS G1 SS sy Se 61 
334@ RETURN 


PACIO>, "HORMNAL TEPMINATION " 
NURPD PREY SEPP INIT DoHS" 


> 


HPScLeso5" eee", LINCS 
1 END OF PAGEHEAD 


3345 =! 
Saooetrrin.! THIS SECTIOH ALERTS THE WER TO AM ATTEMFT TO INPUT BRD BATA 
3300 BEEP 


S352) wise Veh wily Mis iI oa oGoooodooo viv (nla yl* 

3365 WAIT 1503 

Sa beer 

3375 WAIT 1696 

socu BEEP 

3385 RETUFH 

3sa20 } END GF Errin 
saa ? 

3460 Leadse:GOSUB Errear 

3405 Leads:! THIS SECTION ALLOWS THE INFUT OF THE HUMBER OF LEADS SETWEEM REGION 
S 

3416 ON EFPOF GOTO Leads 
3415 SE="ELECTRICAL LEAD 
3426 GOSUEB Pagehead 

3425 PRINT " All cireuit boards have thermally conductive materialz applied +t 
Oo their "” 

3439 FRINT “surface either in the form of 2lectrical leads or as thermal conduct 
1ONM path:z." 

3435 PRINT “Heat will be transferred through these materials between the regions 


OF OLR SennOET TON FA HS 


3440 PRINT “if there 
larger" 

3445 PRINT “erfect than the electrical leads and the electrical leads will oe ne 

gleceted ™ 


re conduction paths (rails? pregent, they wrll have & much 


ae 
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BOHFDS . 


DPriee eel eee Une ee Ne ee on 


3459 PRINT “in the thermal model," 
3455 Anzs="N" 
S480 INPUT "RARE THERE METAL CONDUCTION FATHS PRESENT «N or Y",Anes 
S465 IF Ans¥="EACH UP" THEN FETURN 
3470 IF UFCECAns#€1,1]>=°N" THEN Leads size 
3475 IF UPCE Ansell, L]s="Y¥" THEN 3430 _ 
3480 GOSUB Errin 
3485 GOTO Leads 
3493 S#="CONDUCTION FAILS" 
gol Tel SMe aie at 
35090 GOSUB Pagehead 
Seon RUN T Thermal conduction cailz are much wider and thicker than the #1le 
ctrical" 
$518 PRINT "leads plated onto the circuit board. The thickness 13 generally uni 
form," 
S913 PRINT “however; the rails are typically not of uniferm width. It ia there? 
Aleg © 
S2@ PRINT “necessary to define a concept of Conduction Path Units ¢CPUCS). The 
rail width" 
3525 PRINT “will be modeled in terms of an integer number af CPUs. You will 
be asked to" 
3539 PRINT “input the thickness (mm) of a CEU and the width will sutematically d 
efault to" 
Soce FRIHT *.1 mm such that a rat! of width 1.7 mn can be modeled as 1f CFU-s." 
3243 PRINT 
3545 PRIHT " For your ceonventence the thermal canductivities Cwatts-M-Co of t 
hree allous" 
3556 PRINT “commonly uted az material for canduction rails are given below: ",CIN 
C1) 
Seow Aveso@ae= LSe.e WeMN=C ..eses AL plGl= 218.7 WMC wcaense Cu 113 = 39'3 
8 Wen-c" 
3560 FRINT 
3505 Olde= 
3576 Anss="1" 
3575 INPUT “ENTER THE THICKHESS CF THE THERMAL CONDUCTION FRTHS or TRU Cmmo",A 
ns¥ 
S520 IF Anss="EACK UP" THEH Leads 
3565 TIsAbScval (Anas)? 
SSSUReR ING STAC KHESs WR GRU es = ste s Sain = 
3595 AnsF=".1" 
3699 § IHFUT “ENTER THE WIDTH GF THE CPU’S ‘mm>", Ans 
35605 IF Hnss="BACK_UF" THEN 3576 
3616 WI=AESSCVAL Ans £)> 
3615 Al=H-Wl-T) (#8848444 HOTE THAT THIS AREA IS HEGATIVE FOP CRU: 
3620 PRINT "WIDTH CF CPs = SW yam AREA FOR HEAT TRANSFER FER CRI =" 
ASEM "mma 
3625 Anzet="13S.2" 
3630 INPUT "ENTER THE THEFMAL CONDUCTIVITY GF THE POHDUCTION PATHS CWeM-C9", Ars F 
36a0 IF Anst="EACK_UP" THEM 3570 
3640 KI=HRESCVALC Ane?) » 
3645 PRIHT "“THEFMAL CONDUCTIVITY Suse TWew & saiimitise) (ae 
3656 WAIT 1569 
3655 GOTO Leads enter ! END OF CPU 
3666 ! 
$665 Lesds_fice:St="NUMEER OF LEADS” 
3670 GOSUE Pagehe ad 
3675 ALs="LEADS" 
sooo PRINT " This gection of the program allows the entry of the size and con 
ductivity of" 


07 


CL4. 





3635 
th" 
3699 


BOR DS 


DHT A INPUT FUP OPRePNELE:: 


PRINT "leads (traces) on the surface of the crrcuit board. Theze act a: bo 
PRINT “electrical and thermal canductors between the regions. When enterin 


g9 the width" 


3695 PRINT mt figure an averaje width far a] ] 


37 Q8 


PRINT CINCL >, “ The thermal 


Watts/“MN-Deg C>" 


37@5 PRINT “with no entry, ™ 

3718 Olde=3 

3715 Ans s=".033" 

37°28 INPUT "ENTER THE THICKNESS OF THE 

",Ans$s 

3°25 IF Ans#="BACK UF" THEN Leads 

3739 TISABS VAL OAnet 1) 

Sassen THC. “LEHiD THIEENESs 

3740 AnsF="1" 

3745 INFUT “ENTER THE AVERAGE WIDTH OF 

D (mm>",Ans$ 

eeoecmelr Hnse="PACK UP" THEN 3715 

3755 WI=REBSCVYALL Ans és) 

3760 Al=AW1eT) 

S¢oe PRINT "AVG WIDTH OF LERDS = “shi: 
=" 3 Als “mnr2" 

3770 Anzs="3S4" 

Sitew INPUT “ENTER THE COHDUCTIVITY OF 


egk)",Ans$ 


conductivity wr] 


WhlS Wises 


leads." 


default 


this 


2o pure copper C©3SS4 


LEADS .TFEACES)? ON THE CIRCUIT BORRD Cmms 


SP 6 iil 3s Pann 


THE LEAS STRADES® GH THE ELRCELT Bune 


"init AREA FOR HEAT TRAHSPER FER LED 


(DEFAULT COPPER = 384Watte-M-dg 


3780 KI=SABSCYRAL(Anst 2) 

oeeo FERINT “CONDUCTIVITY OF THE LEADS ="tK1¢" WWataez-M=C" 

3790 WAIT 1509 

3795 Leads_enter: SF="NUMNBEPS OF "SALE&" BETWEEN REGIONS" 

3860 GOSUE Pagehe ad 

3265 PRINT “ This szerion of the program allows the entry of the number of th 
e "SAILS 

3310 PRINT "that cross each of the internal region boundaries. If these are an 

both sidez" 

S815 PRINT “of the board add Soth numbers together. The flashing crosz will mav 
e to the" 

3229 PRINT "appropriate location am the screen but the graphics picture will not 
remain," 

3825 PRINT "If 4a hard copy of the graphics 13 needed for a guide, recall that k32 
will" 

3820 PRINT "provide one. The picture will return to the screen while the number 
Gt; Alles 

3835 PRINT "1s labeled and the flashing cursor will move to the mect location ta 


be entered." 
Seavwereinr LINGi >, "JO HOT USE KO CRACK UPS WHILE THE WUMBERS OF “SAIS,” APE BE 


ING 

3345 
3858 
3655 
3360 
3365 
3870 
3875 
3829 
3885 
3396 
3395 


ENTERED!” 


PRINT LINC13, "There will Ge 
DESee Press CONT WHEW PERDY 10 
FRUSE 
GOTO Leadz_in 
Leads label: ! HERE THE NUMBERS OF 
LER OP Sars ee 
GRAPHICS 
EAGE USTHG “K" 5H 
dl en | 
EDIR -F 1 
LABEL USING “K"3N] 


al 


10é 


correction sprportumit Tes 
START WITH FEGIOH #1" 


later," 


LEADS Of CFU-S [5 WRITTEW GH THE SEREEH 





BORRDS .. DATA INPUT FUP THERMELE.: 


s9u8 PENT 1 

sop~y LDLR @ 

S91G IF Olde. PI THEN WAIT Sag 

Soto RETUEN 

oeee Leads old: C3I2& 2.5 

3925 S$="NUMEERS CF LEADS" 

3930 A1LS="LEADS" 

3935 IF AI<O THEN Als="CFU' Ss" 

3940 GOSUB Pagehead 

3945 PRENT “ This section of the program dizgplave the nunters of leadi orozit 
ng " 

3959 PRINT “boundaries of regions by placing numbers on the sides of the regions 
that" 

3955 PRINT "represent the informations stored in “snamwere". ‘fou will be allowed 


to make" 
3960 PRINT “corrections to 
Mechs tte 
33965 PRINT 


that 


S970 ! PRINT "If you do not dezore to view the 
enter any " 

3975 ! PRINT “number before vou press TOHT ." 
3336 DISP "PRESS CONT WHEN FEADY TO VIEW DATA " 
39385 Leads_in: FOP 121 TO Nreq 

3990 J=1 ! HERE [5 EQTTOM UF THE FEGION 

3935 GRAPHICS 


4000 IF I+Nxer<streg THEN $525 

9@85 NCJ, T+: sHl=g H BRE Si) Sm rit 

$610 MOVE K 1), %¢Io-.45+Hr 

4915 GOSUP Léeadi_iatel 

4024 GOTO 4:8 

$625 IF CitvpeC 1065198) GR CltuopecleiMxr ys 71m) THEN 41190 
ATS) IOS aay cialis Welt OR Sian 

4035 IF Olae<-P!I THEN 4555 

46393 NI=ENICI, ID 

94645 GOTO 36076 

50  PORMIES Kyle, ce-lr, ¥Ol—. 39o-Hr. 2 

4655 WAIT 2008 

4066 DISP "ENTER THE HUNEEP OF "“SALS5" EETWEEH SEGIONS 
SAND “SEHRS* 13253 [4HRRs CHEE C1239% 

4466S INFUT NI 

4670 NI=AEBSCHID 

4075 Ni¢CJ*2,14N«renle yd, ID=N1 

4980 GOSUB Leads label 

4635 MOVE KCl4eNxro+. SoebLr,YClttsro+. 42eHr 

4090 GOSUB Leads label 

49095 GOT) 41255 

4196@ MOVE K®C19,YC1I)-.45-+Hr 

4105S IF Olde<oP!l THEN 4125 | 
4110 NI=ENICJ,ID 

4115 GOTO 415% 

4120 POINTER 4C19,7C1I9-.454Hr,2Z 

4125 WAIT 2008 

4130 DIGP "“ENTEP THE HUMES? GF "Srit3" EETWEEM FEGIOHS 
meen sGHR? (13255 1+Her CHAS) loss; 

4135 THPUT NI 

4149 HISARSCHID 

Ages Mics, lost (3+2, 1 +He ro =N1 

4150 GOSUE Leadz_ label 


(16) 
Voy) 


information and re-sztore 


BF THE BURFI WHERE COHKHECTORS 


In an Mase 


data concerning munber of leads, 


WILL Ga 


Desalter ss i ichem ae IC A ee yereac¢ 3 ete 9) 


wee ee tee. ls CH eo 





4155 
4168 
4165 
4170 
4175 
4188 
4135 
4198 
$195 
4200 
4205 
4219 
4215 
4229 
4225 
4236 
:" AND 
4235 
4246 
4245 
4250 
4255 
4260 
42€5 
4270 
4275 
4236 
4285 
4298 
4235 
4300 
." AND 
4325 
4312 
4315 
$328 
4325 
4338 
4335 
4348 
4345 
4350 
4355 
4360 
4365 
4370 
4375 
4320 
4335 
4390 
4395 
4426 
4405 
$410 
4415 
4429 
4425 
4430 


BORRDS .. DATA INPUT FOR THERMELE:: 


MOVE ACT#N ard, VYCI+Nxrd+.42eHr 

GOSUB Leads label 

J=2 ! HERE I5 FOR RIGHT SIDE OF REGION 
IF I MOD Nxr<>@ THEN 4195 


N1i¢e,TISN1=0 |! HERE 15 THE RIGHT SIDE OF THE EOARTE 


MOVE wCI)+.42<tr, v.13 

GOSUB Leads_)aoe) 

GOTO 4349 

IF CItype cI <3) OF CIlteypecl+19¢>9) THEN 4279 

MOVE NCT9+.42%br, i. lo-. 32+Hr 

IF Olde<cFI THEN 4220 

NISNIC I, 1) 

GOTO 4256 

POINTER Xc lve. 42ebr, ¥¢1)-. 32*Hr,2 

WAIT 2006 

DISP "ENTER THE NUMBER OF ‘sAift3;" BETWEEN REGIONS 
MSCHRECISS°9° 1+ 1° CHR EC LSS» 
INFUT WN) 

NI=RESCNID 

NICJ,IDEN1CJ+2,141°=N1 

GOSUE Leads )atel 

MOVE XCI+td—-.324br, (CI+13-.32-Hr 

GOSUEB Leads label 

GOTO 4335 

MOVE KC 1+. 42¢Lr, ‘C1 

IF Olde<-PI THEN 42539 

NISNI CJ, ID 


GOTO 4315 
POliter ACL )+.4eelr, Yi lo,2 
WAIT 2000 


DISP "ENTER THE HUMBER OF ‘SA1F:" BETWEEN FEGIOHS 
Wo (inl Be Ol Be OB Vise il IES bl aie AS 

INFUT HW) 

NI=ERBS CHI) 

GOSUP Leads lace] 

NICJ+2, 1+13=Hie tJ, 1 =I 

MOVE ACT +1o-.4d2ebr, 7c) 

GOSUB Leads _)abe 

J=3 ! HERE IS FOF TOFS UF ERCH FESION 

IF I>Nxr THEN +268 

NICJ, ID=N1=9 

MOVE 4¢€1)0,7C19+.42+Hr 

GOSUB Leads lace 

J=4 ! HERE IS FOP LEFT SIDE OF FEGION OF EORFD 
IF ¢€1l-1) MOD Nxr=O THEN 4375 

GOTG 43296 

HICJ,IS=N1=0 

MOVE XCId-.424bLr, C1) 

GOSUB Leads_label 

NEST I 

GRAPHICS 

MOVE 164,136 

LOFG 6 

Golce. 3 

LABEL USING “R"3"# OF "SAIS 

DRAW M*Har>, (Hers tHe 72 

POIHTEr 3,4,9 

WAIT Seo 


C17) 
na, 


ae 
Be 
ww 
ter 
_ 


Dismie 0 ere (RIEL 


ihe Cl S275 1 Cakes ct 


~ 
- 





BOARDS .. DATA INPUT FOR THEPMELEX 


44325 EXIT GRAPHICS 

4440 RETURN 

4445 Leads chae: GOSUE Error 

4350 Lead: “cha: SS=2"CJRPECTIONS TO HUMBER OF "SALE 

4455 ON ERROR GOTO Leads chae 

4460 Check=0 a 

$465 GOSU3B Pagehead 

ao) ORR THT * Vou may now make corrections ta the numbers of "SALES; " crossing 
the boundariss 

$475 PRINT "“Reeoall that k3 will provide a hard capy of the graphics if needed 
while k2 " 


4430 PRINT “will return the graphics picture to the screen for visual checking. 
4485 PRINT 
$4390 PRINT “In responce ta the prompts telow, INPUT Reg #., Reg #, CORRECT # OF 


weil s, LINKS t 
ee> PRINT “IF THERE ARS (0 CHANGES FRESS CONT FEY WITH HO ITHPUT." 

4303 LORG 5 

4505 IF Check>) THEH BEEP 

So Le heck Oo THEM PRINT UPS), "CHECK OVER THE FIGUSE, “OL! HAVE MADE AH TL 
LOGICAL CHOICE OF FEGTIONS." 

4515 Check=#Check+! 

$526 Regz1=0 

fee Ulor “PEG #, REG # 2 CORFECT # OF “SALS; 

$530 INPUT Regal, Fegi,Neunl 
4535 IF Regt=0 THEN PETURH 
4340 IF (RegloNreg- OR Fes 
$545 IF Reg2>Fegli THEN 4555 
4559 Dum=PRege 

4555 Rege=Regl 

4560 PRegl=Dum 

4565 J=s 

4570 IF (Reglitt=Fegis AMD ¢Pegl NOD Nxr- ot. THEN J=e 

4575 IF RegitNxr=Reg2 THEN J=1 

$580 IF J<>G THEN 4655 

soom EXIT GRAFHICS 

S90 SS="ERPOR [hi CORRECTIONS" 

4595 GOSUB Pagehead 

4666 PRINT LINCS), SFACS:." THOSE THO REGIONS 00 HOT CONHETT TRY AGAIN" 
Geos BEEP 

$610 WAIT 259% 
4615 GOTO Leadz_ 
4626 ! HERE 13 THE CORFECTION SCHENE 
#625 Leads erase: FEN -t 

4620 GOSUB Lead b 

4635 HieNeunl 

4640 FEN 1 

4645 GOSUE Lease latel 

4654 RETURN 

4655 IF Jez THEN 4745 

4650 IF CitypeCRegl 67105 OR  Iitypet Reger. clas THEM 4aras 
4665 MOVE “ACReglo+.tiekr, (Regi 7-.45eHr 

4670 NISNICS,Regld 

4675 GOSUE Lesds_eraze 

Woe) NUYe HCRenee. 2eebr, it Rege>+.42eHr 

46385 NI=FNICJ+2, Fe 92° 
4630 GOSUB Leads erase 
4695 NIC, Regloiehi<t, 


‘Hreg: THEN 44255 


az 
c 


PegzssHteurnl 


fs. 
~ 
w 





BORRDS .. DATA THFUT FOR THERPMELE.: 


4700 GOTO Lead: change 

4705 MOVE XCRegl), ¥CPegty-.45eHr 

4710 NISHI CJ, Regi? 

4715 GOSUB Lesds erase 

4720 MOVE et an Regid+.42*Hr 

4725) NISNICS+2,Reg2) 

4730 GOSUB Leads eraze 

4935 NICS, @e9102N1CS+2, Reg2.sHeurl 

Q740 GOTO mead. cna 

4745 |! HERE WE APE TO CORRECT THE FIGHT SIDE OF REGIONS 
4750 IF CltupecReglho<>9) OR ClteuperPegZz)<o9) THEN 4795 
4755 MOVE X(Fegi d+ .42ebr, ¥CRegli-.SieHr 


4763 NI=NICJ.Regl? 
$765 GoOsusB Leads erase 
smo NOVE Xtheg2)- SStr, (Leegl?-. S2eHr 


4775 NISNICJ+2,Re92) 

4739 GOSUB Leads_eraze 

47SS5 NICJ Fegidenls Je2,Feg2.=Neunl 

4790 GOTO Lesadz change 

4795 MOVE XtPegivt+ tiebr, i Regld 

43800 NI=N1¢CJ,Regt>d 

4865 GOSUE Leads_erase 

4810 MOVE Kc Pegds-.42ebr, YORE ge? 

4815 NISNICJ+2,Re 32 

4320 GOSUE Leads erase 

$225 NICS, Regioenl: J+2,Rea2:sNeunl 

4839 GOTO Leads cha 

43825 Temoins Rl Sse et Ui eaeuwn > THE RN TENFERAIWES> GF POSES OF ELEMNEHTS 
4849 EXIT GRAFHICS 

4345 SE="TEMPERATUFCS OF POWER LEVELS OF COMFOHENTS" 

4250 GOSUB FPagene ad 

4235 PRINT “ The thernal model used by thiz program asiumes tach component to 

be a heat" 

4850 FPINT “source for which the uzer specifies either the maximum Junction tenp 
erature or" 

4365 PRINT “the rate of heat generatian within that component. When the mai mun 
junction" 

4279 FRIHT “temperature is epecified, the maxtmum steady ztate power levels are 

calculated." 

4875 PRINT “When the rate of power disipation is specified, the steady state jun 

etion" 

4330 PRINT “temperatures are calculated." 

48¢e5 PRINT 

4899 PRINT "The program uses the component surface temperature in the thermal mo 
del ang " 

$095 PRINT “therefore requires a case to junction thermal resistance (Rj ces how 
ever," 

4930 PRINT “if zero 135 Specifies then the surface temperatures if aftumed to be t 


he same 42" 
4965 FRINT “the junction temperature. When components gpan tuo regions, enter h 
elt the “ 
491@ PRINT “component power for each region." 
Sono ron Ol Mh >. All entries must be in Deg Coor Watts and deg Crblartz." 
aoecus tr ee ld=2* OF] THEM 4945 - 
4925 DISP "PFESS CONT WHEN READY To VIEW THE DATA FROM "SHR SClsl i Names; Che ee 
f2o7, Pere FOSSIELE CHANGES” 
4930 PRUSE 
4935 GOTO Temp_chs 
eo tey) 





4940 
4945 
4958 
4955 
4965 
$965 
4970 
4975 
4986 
4935 
4990 
4995 
Sean 
Saas 
5816 
S015 


to ca 


$828 
hile 
$e2¢5 
56839 
S835 
56490 
5645 
Se 
Sess 
$052 
S665 
5a7y 
$975 
S83U 
3935 
SO9G 
5e35 
CUO 
5142 
le en 
Eke 
5119 
SileS 
$126 
Ses 
5136 
Sil Sie 
5148 
$i4s 
Sioa 
Biss) 
5156 
S165 
Sl el, 
Siliae 
515@ 
$185 
spec 
$146 
SiS 
S280 


BOARDS .. DATA INPUT FOR THERMELES 


' 
Anss="1" 

NAT Fow=ZER 

MAT Tj=CER 

Ai oR jmee cer 

INPUT "DD SOU DESIRE TO ZPECIFY POWER LEVELS ¢1> GR TEMPS ¢2) 2" Ans 

IF Ans$="EACK UF" THEN RETUEN 

Ans=VALCAnS$) 

IF €Ans=1) UF  cAns22> THEN 43% 

GOSUB Errin 

GOTO Tempin 

IF An3s=1 THEN Pow_in 

Temp_oinsTem_sal=Q !' HEFE THFUT TEMPEFATUSES WILL SOLVE FOR POWERS LATEF 
SS="INPUT OF JUNC TICGHN TEMPEFATURES" 

GUSUB Pagehe ad 


PRINT " You are now entering junction temperatures wdeg C2 and junetren 
- » 
SS 


PRINT "thermal re2siztance Cdeg CrWatrs, Do mot use ko CBack upd aptian uw 
entering" 
FRINT “the data." 
FRINT LINCS) 
FPO rile I Ls A Fj mele : 
FOR IT=1 TO Nreg 
IF Itypecl>=0 THEN Sia 
Dist ewe ELEMENT IN BEGION"? Is "ENTER Tania Gs 
EMU yak je! 1D 
PRINT SFAC1>,I, Aaa Iago el 
Ty lea=Tytlo+ers 


NEXT I 
GOTO Tenp_cha ! END OF TEMP Il 
Pow ins Tem 29121 | HERE ITHPUT POWER LEVELS WILL SOLVE FOR TEMPEPATUFPES 


SE="INPUT GF COMPONENMHT FOWER LEVELS" 
GOSUE Fajgehe ad 


mise You are now entering component power dizgzipatiaon CWatt? and jun 
to" 

PRIHT “cage thermal resistances (deg C-Natt>. Do not use ko CBack_up whi 
tering" 


PAR URN AiG EMS Fig Y 

Peel h lets 2 

FAME Faw 1> Rj <1) Be 
FOR IT=1 TO Mreg 
IF ItypecI3=68 THEN S146 
Diese “FoR ELEMENT TN REGIONE RY 1, ENTER Powe li, Fy ec 1% 
THE UT Pac lokge S 12 
PRINT SFACL, 1 Pow l3,Rj_e¢l 
TC ld ee73 
NEXT I 2 

GUTO Témp cha 1 END OF POW Th 

I 

Temp chaz: GO 


ISUB Error 
Temp cha:! THI 


3 SECTION ALLONS CHANGES TO THE TEMPS OF FOWER LEVELS 
"ECPretlIbIs 


Sf="DATA FUR 

GOSUE Fagehead 

PRINT " The data listed Below are the current value for the variables 
Wi ele 4 

PRINT "“REGICH #& Tiune (De git> Power CWarts) Froaze-a owen " 


FOR [#1 TO Mreg 
PRINT THECSI, 1S THECL 72, yer 272 THE soe, Pow Tei TAs S39, Pj cf i> 


C205 





BOARDS .. DATA INPUT FOR THEFMELEX 


S205 NEXT i 

wet FRINT LIN«2) 

SelS IF Skhip=FI THEN GOTO 5348 

Se2h PRINT “Use the DISPLAY up-arrow OR down-arraw to move the data list 43 requ 
tired" 

S225 Check=0 

S238 Anss="9" 

S235 INPUT “ANY CHANGES > INPUT REG # IF YES OR FRESS CONT FOR HO CHANGES". Ane 

$ 

seme TF Ans$="EACK_UP" THEM Tenpin 

S245 Regl=INTcVALVAns$s))> 

S250 IF (Regi>-1) AND CRegi<Nreset? THEN Szes 

Seae GOSUE Errin 

3280 GOTO S2sa 

S205 [F (Pegl=3) BHD (Check=9> THEN Hard 

S270 IF (Regl=a> AND (Check< > THEN Temp _ocha 
S275 DISP "TO CHANGE VALUES IN FEGION #"SFeg re 
S2eG Checkh=1 


S235 IF Tem sol=t THEN DISP "ENTEP Fower , Pic"$ 
S290 IF Tem sol=0 THEN DISF "EHTER Tjune , Fjoe"s 
S295 IF Tem sol=1 THEN INPUT Pout Regt ?,Ry cCRegl! 
5300 IF Tem_zol=@ THEN INPUT Ty: Fegl',Rj_c:' Regt? 
S305 IF Tem_2ol=9 THEN Tj: Fegt*=T)(Pegtiter3 

F 


S319 PRINT LINC19, TARC2.,FegliTAbC17), Tj (Regi -273:TAEVS2i, Pow (Regiis TABS SE), Fj 
_¢CRegld5" gee CHANGE <«*+4" 

Soleo GOTD 5230 ) END OF TEMP_CHA 
Jeeummard. | THIS SECTION PRINTS A COPY GF THE INPUT DATA IF REQUESTED 

S325 Anss="N" 

sos0 INPUT “DO YOU PESIPE A PRINTED COPY GF THE DATA ABOVE CN or YY)", Ans 

9335 IF Anzs="EACK_UP" THEN Temp cha 

S340 IF Ansf="H" THEN FETURN 

S345 PRINTER IS @ 

S358 Skip=PI 

S355 GOTO S194 

Seen THES SS<LENe “THE AEDVE DATim 1S FOr “aPictibifs-29, "THE REQVE DATA Ts 

OR Ve tat vO Ss. Cnt > 


S36S PRINT “BOARD LENGTH (defined slong air flows" s BITS “ham HEIGHT ="; 
Bidhi; vite lL Nt 3 
S370 PRINT “BOARD THICKENESS="5 Thick bB5 “tm CONDUCTIVITY =" 


eKbi"Watts/M-K", LINCS) 
S375 PRINT "THE BOARD MOLEL ASSUMES "SALES" AS CONDUCTION FTHS WITH AN AREA OF 
Preset,” mm“2" Lins t> 
Peso Riny “THEENAL ECOHDUCTIVIT’ OF THE “SALE: "* ="SK13" Watts-n-C* 
$385 PRINT " 
DIL Ree 
$396 PRIHTEr Is 16 
$395 RETURH ! END OF Hard 
5400 |! 
5405 Stowe: GOSUE Error 
S410 Stow: t THIS SECTION PLACED THE DESCRIFTICH OF THE CIRCUIT EORED ON TRFE 
S415 ON EFRPOR GOTO Stowe 





S426 S$="PECGFD BOAFD DESCFIPTICHN ON MASS STCRAGE"” 
3425 GOSUER Pagehe ad 
Saoo PRINT “ You may record all the data concerning the circuit Board on any 


available" 

S435 FRINT “mass storage device. This allows anv uz 
on at some" 

S44Q PRINT “Laver time without the nzed to input all the details. This optian 
ccurs both" 


tu 
aly 


rtp retrieve the descripts 





POE toe ee a LHP BOR VAEPNELEN 


S445 PRINT “before and after the thermal analysis. Enter desired data file ma 
me below, 
S450 FRINT “be sure to include the mass Storage unit gpecifier if mot the defaul 
ten" 
S455 PRINT "For example tea eee yakle @t es 
S460 Anss="¥" 
S465 INPUT "TO YOU DESIFE TO FPECORD THE DESCRPIF TION DATA <¥ or Nor", Anss 
S470 IF RnzS="BarK_ UP" THEN SETUPH 
S930 IF UFCECAnssSCl1,125="N" THEN CETHUFEH 
saco IF Gldex>F!I THEN SSeS 
S439 PRINT LIHCS), "THE FRESENT DESCRIPTIVE TITLE FOR THAT BORRD 135 “SCHRIC13215P 
PeotIDIS;CHRE 123% 
S435 EDIT "CHANGE THE TITLE OP FRESS CONT WITH NG ENTRY FOR NO CHANGE." Pict 1b 
1s 
S508 IF Pict lbls="BACK UP" THEN Stow 
$505 Anss=Hames ~ 
SSie EDIT “UNDER WHAT HANE DO YOU DESIRE TO STORE THE DATA Cchange belaws 7" Name 
$ 
SS1S IF Namef="BACK WP" THEN 5423 
$520 IF Nameft=Ansst THEN Sse 
Sseo Anse=" yy " 
eee see On IRe lee With Ab Least“ ssrenregrenas BYTES ExtaT WHDER THAT 
NAME CY or NO?"s 
S535 INPUT Anss 
9548 IF Ans$="SACK_UP" THEN SSas 
gore IF UPCSCAnsfl(t,tj]o2=""" THEM SS 
95950 DISP “WORKING CKEATING DATA FIL 
SIN al Ze* 
SSSp CREATE Narme?,1,40-Hreg+ein 
S560 ASSIGN #35 TO Names 
S565 FRINT LINCS, "Wo PRIHG WRITIR:G BGARS DESCRIPTION OF "“VFicetIblé;" OH MASS 5 
TORAGE” 
sore DIS 
Sore RERD #5, 1 
S589 PRINT #55;Names,Pictibls,Case#, Bdl, Sdh,fca,Nxr,Nyr Nreg, Thick _b,Kb, AT, KI, Tem 
£0] 
$535 FOR I=1 TO Nre 
9990 PRINT #5; Itype ls. KO1d, CID, TjCl>, Powis 1, Rj etd) 
5595 FOR J=1t TO 4 
600 PRINT #S5:HI¢CJ, 19 
$665 NEKT J 
S616 NEXT I 
2olo PRINT 955 END 
seeo HosiIGn. #5 TO + 
5625 FRINTER IS wo 
Seer iiget. IME ELeCUTT LISTEN BELGW IS STOPED UNDEF THE FILE HHME “; CHES 
C1320; Names Ss CHE FC LES) 
Seas PRINT LINCS). SFAYZ5-, Piet lelt,LINC2> 
5644 PRINT SPACES), "SAVE FOR TOUR RPECIFIS" 
Sé45 PRINT " 
ry Oe Us aap 
S656 FRIHTER I35 16 
wena DTSP 
S660 RETURH 
Socs Errors! 
Stevo PEEP 
S073 WAIT 3a 
S600 IF ERPN=Se THEN Err_name 


9 
E FOR "$Namesg" THAT [3"s4aeNregreaas "BYTE 





> 





BORRDS .. DATA INPUT Fir THERNELES 


SeSS PRINT LINC SG), SPACIO., "ERFOR HUMBER"“SEPRHS "HAS GCURFED IN LINE"S;eRRL3". FR 
ESS CONT WHEN READY" 

5630 DISP 

Siesis) jya[sle 

5700 PRUSE 

57@5 RETURN 

Srio ! 

Sep. Err names! THIS SECTION FOR IMNPROFEF FICE HANE 

5728 PRINTER I5 15 

$725 PRINT FAGE 

S730 Msusf="lTEFAULT MASS STORAGE" 

9735 FOR [=2 TU LEN Names: 

$7490 IF NamesSCI,I]=":" TREN S75 

5745 NENT |! 

57359 GOTO S?7rg 

5755 Msuzs=Name FCT] 

5760 CAT Msuss 

Simeon GUMOMsiaTS 

Sacer Gril 

Bere PReitt LCRHCEY CHR SC soagHsamee El T=f23CHReciosst" 1s NOT on “SNswes sy” with th 
St spellingercsccvece” 

sre) PIN IL Miki los PienISei< miles tinls MUSisle wine (alaelts lsials lehivisisty inklinsogonooogo0000c 


is 


Sree DISP “PRESS COHT WHEN READY" 
97360 FRUSE 
9790 RETURN 


E16 


iv 





SBPPENDIX D 


IIL, 


16 { THERML Tas een NAME ehNAL YS lo PRUGRHE PUR nee 

2U ! 

ei) ! 

43 LP RHRF EATER TER HEL EEE RE THERMNELEX SEER KEE EEE EEF RE HE HEE 

38 ! 

6a ! A SYSTEM OF PROGRANS FOR THE HP 3545 

7 ! 

$9 ' TO PEPER TREN StH y Sls OF ELECIRGHIG CIRCUIT BOARDS 

90 ! 

7S) ee ee ee ee ee eee ee ee ee ee eee eee eee eee ee rere re ee eee ee eee 
1150 !' « * 
leo ! «£ * 
oo 6 PRrerPhreD At THE HAYAL POSTGRADUATE SCHOGOL NGHTERE’. CA * 
146 os * 
iao Ps Re Ae FOLT2c ECDR Wet * 
166 ! & + 
lige ae iigeetTHERNE || [)| | Seu TUE Tog. 
LEQ ba He mh ete ere esse tee meses ce meee eden meer eee ee eerste steerer eg neesesaneerstens 
isu! 

208 OFPTIOM FRSE 1 

2t@ PRINTER [5 ts 

2am DIM SsCr el, Tae es itt Mss eS Ces], Yleléces 

236 COM Map.Naner. Fire IeISCS01,case3£50), Bd], Bah, Sea, Thick b,Tem_sol,Kr,AI,K! 
260 COM SHORT “4502. M6500. TjCS0) Pow, sl". Ry sc 650) 

259 CON IHTEGES Leup|e SO) H164, S00, Nar, Hor, reg 

266 INTEGER Npint tS) 

270 SHORT AeC30), Fe sang 58), Re _conucsa),Rtore bCSGs Ptop rv sgs , PIiCt, 58s, Rele cS 

@>,Fo_canv¢Sisy 

226 SHORT Wideset L4i Lenser cl4p 

Ze foe bet asd le oa Het ah lesa), Taint Sh) ASO, 50), BOSas, Te 302 

300 Map=INT’ Map? 

310 IF (Map=0) OF (Mape3>? THEA Oldgict 

S20 Start_over: ON Map GOTD Oldpret, Thermal, Thermal 

338 GoTo Oldpict 

345 Oldpicte: GOSUB Error 

POM iat c this soe lit Pei ewe seh LORE TESSEIF TIS OFF A ONASS STORAGE DEY 
ICE FOR THE FURPOSE OF DEBUGGING THERMAL 

3660 OW ERFPOR GOTO OCldpictre 

370 Olde=FI 

SS@ Se°EGRE DESCRIPTION FROM MASS STOFPAGE BPEVICE" 

396 GOSUER FPagehead 

4606 PRINT “ You nave chosen to input the circuit board dezeription in THEPM 

Eeairece ]y" 

41@ PRINT “from a mast 2torages device. This program in the THEENELEA Syren wi 
i HOT 

423 PRINT “allow graphical data checking and while faiter, there it the chance: 
that the" : 

430 FRINT “data iz incorrect. If you decide that tt would be betrer to check ¢ 

he data" 

449 PPINT “press KO “FRack_up) and BORFDS will tbe loaded fram the DEFAULT ma 

$$ storage unit.” 

$590 PRINT 

6g RelitT “ The data file conmtarning the Board dezcriprion must have been 2b 
ored by " 

$706 FPRINT “this program. Enter the data file mame below, be Sure to include th 
=e mais " 

429 PRINT (G/ Gl ee Unit Shmetfier if nesded. (G9 Tit,:FS,2712 ere>" 

436 PRINT LIWa1 3 Do HOT wie Quotes" 





S@Q EDIT “UNDER WHAT FILE NAME IS THE CIRCUIT BOARD FILED (change or enter belo 
w>"“, Names 

S10 IF Namet="BACK UP" THEN S30 

S20. GOO S30 ~ 

538 Map=t 

34G LOAD “EQARFDIS",1 

550 ASSIGN #1 TO Names 

Sea READ #1,1 

sr READ #1; Names, Pretibls, Cases, Bdl, Bah, Sca WN r,Nyr,Nreg, Thick b, KE, AL KI, Tem 
so} 

S8Q FOP T=1 TO Hreg 

sao RERD fi; levpects, «Clo, cl s.7j3¢1),Powtl:, Ry etls 

600 FOR J=1 TO 4 

61G READ #isni¢J,q19 

649 Heer J 

630 NEXT I t END OF OLUFICT 
640! 

650 GoTo Thermal 

660 Thermale: GOSUE Error 


WME oe 


Tae EWA ene iets One HER MELE 


673 Thermals Sito ee otis The MAL THEYUT AND CALI, FOUTIHE 
660 ON ERFOF GOTO Thermale 
690 SE="THEFNAL ANALYSIS OF” 
700 GOSUE FPagehe as 
fe PR Lie THE Cs e=LENCR rec lee. Sry CPRSC PSST Riet lb Sz CHR 1 SS 53 C THe 
fen PRINT * This zection assumes you have conpletely and correctly 
the beard" 

eee Vtemit. You Wil! be asked questions concerning OULY the 
744 PRINT " The first questions are cancerned with the casting ai 
Recall the" 

~G PRINT “direction of air flow on the graphics picture is assumed 
to right.” 

76a PRINT "The clearance between the board: is used ta determine the 
f thiee “ 

fiom kee COoGling airmen, LIHC 2) 

7G Anss="20" 

790) «6Mape=o 
So J@FUT “ENTER THE INLET TEMPERATUPE OF THE FOOLING AIP “deg C)",A 
S10 %I[F Ans$="ERCR UP" THEN Start over 

620 Tair=¥ALiAnss. 
830 FRIHT " LHe Hike Tene Taira esis “deg CC" 

840 Tair=Tair+273 ACE ERCEPCATIGHS UGHE TN AESOLUTE Te. - 
858 Anzsts". 0095" 

ceO INPUT “EriTer ThE RIP SUFPLY PEF EGRED «M*37SEC)",Anst 
S70 IF Ans#="EACK UF" THEN Thermal 
886 Fair=VALSAnz£) 
S90 FRINT "™ FLOUGERTE OF AIRS“ Fairs “Nasr Sec" 
965 Anst="15.24" , 

916 IHPUT "“ENTEP THE DISTAHCE FROM THE FACE OF THE BOARD TO THE HET 
>" ,Ans$ 

926 IF Anst="EACK_UPF" THEM 729 

930 2b=VAL CAE 4) 

944 PRINT " EGAPU SPARE Ili 5 ft mn 

S34 2b=Z2b+. 001 

9690 Ansf="NULL" 5 

Stow - MLL Ob. PRESS COHT ANY ERTRyY FOLLOWED BY CONT WEILL ALLOW 
yf (BNE ANIL 5 lB 3 

968 IF Anss="“NULL" THEM io0g 


Nanl 


deezcribed 
Enuprannme nit 
rou D 
be Yet 


Welocity oo 


QEJECT «+ rath 


POENTE 





THER. Cher neo nN Sls eR THEE nel es 


998 GOTO Thermal 
1800 SS="CONVERGENCE CRITERIA" 


1819 GOSUB 
1928 PRINT 
element" 
1030 PRINT 
mperature" 
1048 PRINT 

argest" 
1959 PRINT 
ed. 

19690 PRINT 
1878 PRINT 
on the" 
19030 PRINT 
ror five" 
190390 PRINT 
att when " 
1190 PRINT 


Pagehead 


: Convergence i3 indicated by successive itterations that result in 


"temperatures that differ only by same small] amount. Each zlement te 


% 


"3 compared to that aotained in the previous itteration and if the | 


"difference is less than a maximum specified error, results are print 


Typically two or three itterations result in 4a maximum difference 


“orcer of one degree centigrade when solving for temperatures and fou 


"itterations will result in a maximum difference on the order of .1 W 


“solving for powers." 


ITO IF Tem_sol#l THEN Anzes=".5" 
1120 IF Tem_sol=0 THEN Anzs="1" 


Les) EF Tem_ 
deg C) DEFAULT=.5" 
1140 IF Tem 30)29 THEN 


Z0]=1 THEN 
sAanss 


THe? PENTER THE MARINUM DIFPERENCE BETWEEM ITTERATIUNS © 


theo ENCE ne eat PERCENT EHRHGE BETWEEM TiTeeni ie 


NS (Watt) DEFAULT=1°:",AngF 


115G IF Anss="BACK_UP" THEN Thermal 

11690 Errmax=ABSCVAL CASS)» 

11790 GASUB Dstabase |! THE FOLLOWIHG LINES FOPM THE MAIN CALLING ROUTINE 
1188 GOSUB Cale 

1198 GOSUB Calel 

1280 GOSUB Cale sir 

1210 GOSUB Cale t 

1229 GOSUB Cale2 

1230 GOSUB Detug 

1248 GOSUP Solve 

1258 GOSUE Units 

1260 IF Bomb=1 THEN 1238 

1278 GOSUB Ourput 

1289 GOSUB What now 

1299 IF Map=4 THEW GOTO Thermal 

139098 GOTO Oldpict 

Taion! 

1320 ! END OF THE MAIN COHTRPOL SECTION OF THE PROGRAM THERML 

1332 ! 

1349 b eee eeeexeDATHER SE seeseree 
13593 Database: ! Ih THIS SECTION MANY DF THE CONSTANTS USED IH THE CALCULATIONS 
135% 1 REE READ IN FROM THE [ATA LINES BELO 

1370 DISP "WORKING OH} HOH-CHAHGIWHG PAPANETERS" 

13390 PRIHT PAGE 

13399 Axpin=4¢.3E-7 IX-SECTIONAL ARPES FOF PINS ¢M-s? 

14909 Aspin=1E-S I'SUPFACE RARER FOR PIWS [poses 3 

14190 Beta=3.33E-3 'YVOL COEFF QF EXPA. AIF K1l-e79 K> Al Soo deg ik 
1429 Cpaal. Hees ‘SPECIFIC HEAT OF ATR WAT hab beg is se 
1430 Dis=.a901 'AYG DISTANCE FREON BOTTOM OF DIF TO BOARFD 
1449 Epsb=.3 (EMMNISIVITY OF THE SURFACE CF BOARD 

1459 Epse=.3 (EMMISIVITY OF THE DIP SUPFATE 

1469 G=3.31 (GRAVITY CM/S2ee%2) 

147 Gnu=1.534E-5 IKINEMATIC VISCOSITY AIR (CMNtrerSecyd 


C3) 


NEV) 





1489 
1490 
15908 
oT) 
1520 
1538 
1548 
15528 

368 
1578 
1539 
1598 
1608 
1610 
1620 
1638 
1649 
1650 
1662 
1678 
1639 
1630 
1709 
1710 
1720 
1739 
1740 
1750 
1760 
17786 


THERML 


Hec=,093 
Hep=.005 

Ks2=53 

Katr=.925 
Kpin=334 
Lpin=.0025 
Musi. 333E-5 
Pr=.703 
Rho=zl.1774 
Sig=3.67E-3 
Ittse 

RESTORE i839 
FOR T=1 TO 14 
READ Widesercls 
NEXT I 

Ti Cele e we e4 os 
FOP I=! T9 ts 
READ Lensetcl> 


an 


NEXT ] 

DMP ka Cee) a + 2a eke sil 
MAT Wideser srs. qi- 
MAT Lenset=CeS.tiuel 
FOR IT=1 TO t4 


READ Npincl> 

NEXT ! : 

DATA 14,14,15,16,24 
FOP 123 TO 14 

READ Typescl> 

NEXT I! 

DANA EMP iG, fle 1+. 2 


«- THERMAL ANAREYSTS FOR THERMELEN 














(HEIGHT OF CERAMIC DIP PACKAGE +<*++4% | check 
'HEIGHT OF PLASTIC DIP PACKAGE *+<res44 CHECK 
ITHERMAL COND OF FTEEL KWATTS-«M-deg t> 
'THERMAL COND OF AIF CNWATTS-M-edeg K> 309 deg K 
ITHERMAL COND OF PINS CNATTS/“M-deg K> 
'AYG LENGHT OF FINS CMa 
IDYNAMIC VISCOSITY 308 K (CKg-MN-Secd 
'PRANDTL NUMBER ; CAT 388deg K) 
(DENSITY OF AIR AT 309 KK (Kye M3) 
'STEFFAN-BOLTIMAN (W/MNA2-<deg K*4) 
! THIS READS THE CASE WIDTHS FOR EACH TYPE 
Boon lmecy Oa OacOs ive 1 Sac cen. a eeie ! ALL IH INCHES 
! THIS FERADS THE CASE LENGTHS FOR EACH TYPE 
oeae bg o Beg Bp Bo hg og 5 WEG oe Sg ofp o RE ! ALL IN INCHES 
dideser ! CONVERT TO mm 
. be 


itt oeeehls THe 4 UF FINS eFOR EACH Tree 


.24.5,8,29.209,15,24,48,54 
i THIS READS, THE CASE LABELS FOR EACH TYPE 


Ie f4,07P is. DIF 16,R1P eaenle 24, HULL, NULL, DIP 46,0IP & 


@,FLATI6, FLATSS, FLATI4,FLATS4 


1720 
173¢8 
1809 
1810 
1820 
1830 
1348 
1850 
18608 
1870 
1830 
1332 
1986 
1910 
.1929 
1939 
19398 
1959 
1969 
19708 
1989 
1999 
2098 
2619 
2929 
2330 
2042 


FOR T=1 TO Nreg 
IF Itepe Cl =3 THEH 
LeC€Td=Lenzer: Trupe|ec 
WeCTeWidezer tI tupe 
GOTO 1549 
WeCToslecl>=2 
NEXT 1 
IF Tem _ soli THEN M 
IF Tem_ 30139 THEM MM 
MAT Le=C.641°5<Le 
MAT We=C., 31> <We 
MAT X=! 
MAT Y=¢ 
Ae= 


t 

. 
Se Se 
Se 
- ps 
a 
t ¢ 
x xX 


MAT 
MAT He= 


lot |i 
oh 
= 
& 


Heed t 


Bdh=Bdhe. 991 
Rreg=EBdleBdah“Hreg 
Hr=Bah/tHyr 
Lr=BdIl/Nxr 

Thick b=Thick bt.06 
RI=AL€LE-s$ 

RETURN 

iy 

Calve:GOSUE Error 
Caleos! ON EFROPF GD 
FowtotsNavg=He avgahi 


1330 
ITo> 
wis) 


BT Te2coaa> !' [MITIAL GUESS FOR TEMP CASE = 27 d 
AT Pow" .253 ! INITIAL GUESS FOR FOWER = .25 W 


HecUNe HL ber MniGcalthke CORRECTIONS AS HEEDED IN Cateu 


. 


1 


! END OF DATASAZE 


T3 CALCOE 
zavg=B 


¢4) 


120 





2859 
2669 
2372 
2088 
2398 
2109 
2112 
2120 
2139 
2149 
2159 
2162 
2178 
2138 
2130 
2208 
2218 
2220 
2238 
2249 
2258 
2262 
2279 
2289 
2298 
2330 
2312 
2320 
2330 
2348 
2359 
2369 


THERM ... THERMAL ANALYSIS FOR THERMNELEX 


FOR I=! TO Nreg 

IF CasesCI,1]="1" THEN HeC I> =Hep 
IF ItypetI)=9 THEN 2129 
Powtot=Pouwtor +Fouc! * 


WeavgsWeaugrtNeC +. 01 -Nreg 1 AMG WIDTH INCLUDING PINS 
HeavgeHeavgtt Her l>+Lpind-Neeg |! AVG HEIGHT IHCLIIDING FINS 
NavgsNavgeisnvr HUMSER OF ELENENTS ITH AH AVG CROSS SECT ISH 


NEXT I 

Rarr=Bdh-lb-Navgels avgetHe aug 

Parim=seBdhtcetNavgerHe avgticecy 

Fr=it+Se(Perim-2eBdh-2+lb9- Peri ! ROUGHNESS FACTOR 
Dhe4e*AairvFeriin 

Vair=Fair-Aasir 

ReeVaireDh- Gnu 


IF Re>iGea THEN Hors, df23ekKairvDheRe*.e 1 TURBULENT AT 1808 DUE 
! i 7C MRHY TRIPS OF ConMPsS 
IF Re<=1800 THEN Hof=S.40+KaireFreDh | LAMINAR FOR 1.Gz>.u5 


! 
RI_horelr/cKl#ABScAl>? 

RY vershr 7 CK WARES CATV) 

Rb horslr’ KoeHr<+Thick b> 

Rb oversHr7ikbetreThick bd 

RETURN ! END OF CALCA 
1 

Calele:GOU2UR Error 

Calel: ! THIS FECTION CUMPUTES SOME DF THE NON-ITHAHGING PARFRAMETERS 

ON ERROR GOTO Catcle 

FOR T=i1 TO Nreg 

' BELOW HERE WE CALCULATE THE CONVECTIVE LOSSES FOP EACH BORFD FPEGION 

TF XC1)23n>19 THEN 2339 ! DUTSTIDE OF THE DEVELOPMENT REGION 
GzeReePreDBn-eicid 

HO=.OeS Shar C1. toh ae Gos t+? StSURCPr-Gzda7ProSFr ! Eq 13.43 FNUTZEN 


& KATZ LAMIHWAF IM CEVELOPMENT REGION 


2378 
2338 
23398 
2488 
2418 
2428 
2432 
2442 
2453 
2460 
2478 
24388 
2492 
2568 
2519 
25208 
2538 
2548 
2553 
2563 
2570 
25398 
25398 
26289 
2618 


lTeeivi=7.09 THEM 2325 

GOTY 2468 

Hb=Hbf 

Aregtotelehreg-Hecl: 

Rb _conv¢l+21. CHOeAre grat) 

PeSGOW WE GET TO THE ELEMENTS ON THE BORED 

IF Itypetl>=8 THEN 2549 Pelt HOSEEENEMT THEN SET VERY HIGH FESlsiance 
IF Itype2e¢194<11 THEN 2439 

Dis=.1*Die 

Lpin=.itelpin 

Aspin=.irAzpin 
Rpins_cond=Lpin’¢KpinsAxpineNpind type tI) 
Rgap_cond=Dis~’(Kairene tI) 

IF Itypecl><11 THEH 2549 s 
Dis=16*D15 

Lepin=144Lpin 

Aspin=107Hepin 


Re_ cond¢ls=Rpinz cond#Pgap_ cond’ ¢Rpins cond+Pgap_cond> 
OWE ae C155 ONL eel) cHe+ne pineHpin¢ltuper ly 
Hebl as=Hb 


IF 1¢6 THEN Ho: ls =Hb 
Reblsazs=1/7¢Heblaz+Abl az? 
Hestag=.S7-KarrePr*.4e50R (Varela Cl *Gniud 2 
Astag=erxWec lo +Hec I> 

Restag=i/’(Hest agrAst ag? 


(5S) 


aE 74ak 





2620 
2639 
2640 
2659 
2660 
26798 
2680 
2699 
2700 
2718 
2720 
2733 
2740 
2750 
2760 

779 
2730 
2798 
2339 
2810 
2820 
2830 
2849 
2350 
23560 
2870 
2830 
25390 
2990 
29190 
2928 
29390 
2948 
2950 
2968 
2979 
2980 
2399 
3399 
3916 
3029 
3038 
3949 
3350 
3068 
3878 
3088 
3090 
3160 
3118 
3129 
3138 
3149 
3150 
3160 
3170 
3128 
3198 


THERE .. THESMAL ANALYSIS FOR THERMELES 


Re _convil>=Peblas*Restag- (Peblas+Rest sa) 

GOTO 2660 . 

Re convil>=1E30 

Re_ condi I>s1E39 ; 

ISSECOH HERE CAECULATE THE BOARD CONDUCTIVE RESISTANCE 
J=1 ! HERE IS BOTTOM OF FPEGION 

IF IT*Nxr >=Nreg THEN 272e 

IF NICJ,1>=9 THEN 27a 

RICJ, ISRI_ vere NICs, Td =Rb ver CRI verrNicd, I) +Rb_ ver) 
GOTO 2759 

RICJ, [> =kb_ver~2E-49 


Goro: 2750 ° 
RICS,1=Rb ver 
J=2 ! HERE 13 RIGHT SIDE OF FEGION 


af 

IF I MOD Nxr=9 THEH 2500 
IF NiCJ,1259 THEN S8en 
RICI,ISR1_horenlc5, 1 #Rb hor RI hor NICS, 1>+Rb hor? 
GOTO 233% 
RICS, I shb hor-2E-46 
GOTO 22830 
RICJ, IDSFb_ hor 
J=3 ' HEPE IS THE TOP OF THE REGION 
IF [<=Nxr THEN 2350 
IF NIiCJ,12=9 THEN 226590 
RICJ, 1SR1 ver NICS, 1 eRO ver. cRIi_vereni¢J, 1o+Rb werd 
GOTO 2915 
RIGS, 12SRb_ver72E-40 
GOTO 231% 
RICJ, 1. =F b_ver 
J=4 ! HEPE IS THE LEFT 3 
IF CI-1) MOD N:r=h THEN 2 
[IF NiCJ, 1920 THEN @359 
RICS, I #Ri hor-NicJ, 1P>*Pb hors CRI hor/Nnic¢s,1>+Pb hors 
GOTO 3949 
RISJ, 0 2#h6 har/“Ze&-46 
GOTO 3986 
RICJ,12=Rb_hor 
GOTO 3816 
Ro convCIDSlL/CHb-Rregtot) 
NEXT I 
' 
RETURH ! EXD OF CALS 
' 
Cale tei:GOsUB Error 
Care ts! THIS SECTION DETERMINES SURFACE TENP FROM JUNCTION TEMP BHD ej_c 
ON ERROR GOTO Cale te 
IF Tem_sol=1 THEN FETUFN 

FOR I=1 TO Nreg 

TeCLosTjClo-PowCloa*Rj_e¢ I 

NP Tet lo< sir tide1.t THEM Tec loHeTaircio<i.t 

NEAT I 
RETURH 'END OF Calc_t 
Baleze: GU5UE Error 
Cale2: |! THIS SECTION CONTAINS THOSE PARANETERPS WHICH CHANGE WITH TENFS 
ON EFROP GOTO Calece 
DISP "WORKIHG OW CHANGING FARANETERS" 
FOR IT=1 TO Nreg 
IF Itype(I0476 THEN 3230 


IDE OF THE REGION 
354 


22 





3298 
S220 
3220 
3230 
3249 
a3) 

3259 
3258 
3278 
3238 
3290 
3388 
3319 
3329 
3338 
3348 
3358 
3368 
337e 
3338 
3399 
3488 
3418 
3428 
3439 
3443 
3459 
3468 
3479 
3488 
3498 
3588 
331.2 
3528 
3530 
3544 
3558 
3559 
3578 
3538 
3598 
3698 
3610 


THERML .. THERMAL ANALYSIS FOR THERNELE 


Rtrop_r¢l>s1E59 

Rgap_rad=1€50 

GOTO 3259 

Rgap_rad=CEpserEpsb-EpserEpsbo- C4451 g*+EpsesEpsbeAet Loe TeC lo 3) 

Reop rtl scCi-Epsbo-CEpsb-Areg)+lo7Areg+( le Epsed-CRes Ld*Epse ddr C4eSigeTacl) 


Rtote SCI=Rgap rad+Pe cond( lo (Rgap radt+Re candtI >) 
RelecCIo=Re_ caonvcly+Rrote bild tii! MUST BE FuMm FOR ALGEBRAIC FERSONS 
NEXT 1. 
RETURN ! END OF CALCT2 
i 
Cale aire: GOSUE Error 
Pace ees) THiS SECTION FINDS THE AIR TENPS FOR EACH FEGIOGN BASED ON POHER 
ON ERROR GOTO Cale_aire 
Cfr=ClparF air-Pho 
Powtot=0 
FOR T=! TO Nreg 
Powtot=Powtor +Pou [> 
TairnCTd=Tair+. S*Pouc li eNurettr 
IF ¢CI-1) MOD Nxr=0 THEN 3428 
FOR K2=l-1} TO T-cl-1> MOD Nxr STEP -1 
Taint =Tair cI. +Powtk> eNyr-Cfr 
NEAT K 
NEXT I 
TautsTair+Powtor7Cfr 
RETURN ) END GF CHEC OAIR 
i} 
Solvee:GOlLUS Error 
Solve: ! THIS SECTION SOLVES THE PROELEM 
ON EFPOP GOTO Soluee 
DISP "WORKING OH SETTING UP THE MATRIX“ 
Itt=[ture+l 
BEEP 
WAIT 339 
BEEP 
GOSUB Set_up 
GOSUE Elu 
Err=9 
Tmax=8 
Pmin=1L00% 
IF Tem_sol=!i THEN 37a 
FOR T=1 TO Hreg 
Prew=Cletl=Be lo 7Rtnte Sc leettetls—Tair<los7Re_ convc lite tec ly=BClox er Rt 


op_r¢ I> 


3620 
3628 
3640 
3659 
3860 
3679 
3663 
3698 
3766 
3718 
3728 
3738 
3749 


IF Pnewi THEM Frnew=Fourls72 
IF FPneuitPminm THEN Prminsrriew 
IF ABSC CPowl li-Frnews- RPouwt ls PErr THEM Err=ABs co Pow’ Lo) -Pnewd-Poawe 1) 
Pow( I) =Pnew ‘ 
NEAT I 
Tm ax=Sou 
MAT Tre=B5 
IF Err<€rrimax. 138 THEN 3349 
GOSUB Cale 
GOSUB Cale_air 
GOTO 3324 
FOR 121 10 Hreg 
Thew=t Powe I°Srrote br lsePe caonucly+S¢litre_connclo+Tair Io eRtrote B¢ Id) 


7Rele cI? 


C7> 


ZS 





3758 
3768 
3778 
3738 
3790 
3808 
3812 
3828 
3832 
3848 
3850 
3862 
3878 
3838 
3898 
3999 
3918 
3929 
3938 
3940 
3958 
3968 
3978 
39€0 
3230 
4309 
t) 

4819 
4020 
4330 
4042 
4859 
4069 
4878 
4228 
4839 
4198 
41106 
4128 
4130 
4143 


ptt rReete GFP 41RD conve y-CTem_: 


4158 
4169 
4178 
4138 
4192 
4299 
4216 
4228 
4238 
4249 
4259 
4268 
4270 
4238 
4292 
4328 


THERML .. THERMAL ANALYSIS FOR THERMNELES 


IF ABSCTe¢ I -Tnews Ere THEN Err=ABS( T2201) -Tnew) 
Tec I) =Tnew y : 
TjCTosTeclorPowc ldeRj_eC ld 
IF Tj¢I>>Tmax THEN Tmax=T)¢I> 
NEXT I = 
Pmin=@ 
MAT Tb=B 
MAT A=ZER 
IF ErrdErrmaxs THEN 3928 
DISP 
FOR C=1 TO 4 
BEEP : 
WAIT 32 
BEEP 
WAIT 150 
NEXT ¢ 
RETURN 
GOSUB Téemp_print 
IF <Itt>30. OR -Err>288> OR <Tout>448> THEN GOTO Bomb 
GOSUB Cale 
GOTO Solve ! END OF SOLVE 
! 
Set _up:! THIS SECTION SETS UP THE Nreg SIMUL EQUATIONS I35 MATRIX FORM 
FOR [T=1 TU Nreg 
IF Tem 20130 THEN B I3=TecIovPtote b¢l>+Tair (Poe Rb_convull> 
IF Tem_251=1 THEN B.ireCPow Cl eeRe conve lo+Tairc ilo). ReletIo+Tairr (I o7Rb conve 


LwedgesRegge=Tedge 
TR Gr =1> aD) Nor 
IF I MOD Hxr=9 T 
IF I4=Nxur~w THEN T 
Le lthxreshreg 7 
IF ¢€I-1>) MOD Néer 
mG M5 MOT Bese are ee Hho 

IF [ MOD Nxr=3 THEN 4159 

AGT gel == tee ID 

IF I<=Nvr THEN 4129 

ACI, laNxrss-17R1°63, 15> 

IF I+NxrveNreg THEN 4148 

AG My Mealileste Dee ih 2 as hg 12 

ACI, I> =(Bedge=l vP leit, loethedge 


NEAT I 
RETURN ! END OF SET_UP 
1 
ee i oe See TOM Pek eer ALU GESCUMFOUSITIONH OF THE “A MATRIA 
DISF “WORKING GH ITERATION NUMEEF "site 
Nml=Hreg-l 
FOR K=1 TO Hml 
Kpl=K+l 
FOR I=Kpl TQ Hreg 
Gr-ACl, KOAACE Ko 
ACl.kK=G 
FOR Jekpl TO Wreg 
ACL, JO=AC! J +o Rk, JD 
NEXT J 
NEXT |] 
NEAT K 


(8) 


124 





4310 
4322 
43390 
4342 
4350 
4360 
4370 
4339 
43923 
4400 
44198 
4422 
4439 
4449 
4459 
4462 
4472 
4482 
4490 
4500 
4519 
4528 
43532 
$549 
4552 
cw 

435523 
4579 


THERNL .. THEPMAL ANALYSIS FOR THERMNELEX 


Solver! ' THIS SECTION SOLVES THE NEW MATRIX AND FLACES THE ANSWERS 
Npil=Nreg+l ' INTO MATRIX B TO BE FASSED BACK TO SOLVE 

FOR K=!1 TO Nnl 

Kpl=Keti 


FOR I=Kpi TO Nreg 
BCIDSBCIO+ACI, KO *BCK? 
NEXT I 
HExT 
BCNreg>=BCNreg> “At Nreg,Nreg) 
FOR K=2 TO Nreg 
I=Npi-k 
JPS1 +) 
FOR J=Ji TO Nreg 
Bolo Sul)—Ae 1 Jere. J) 
NEAT J 
BClomb core |. 1) 
NEKT K 
RETURN 


! END OF SOLYER 


hemp_print:! THIS SECTION USED FOR INTERMEDIATE OUTPUT 


EXIT GRAPHICS 


IF (Temprt=i> AND *Ans=PI> THEN PRIHTEP IS 8 


PRINT SPAC1LAY, "DATA FOS “sPictlolss" i lec TT TeRAr lon 
PRIHT LIN¢ 2d 

FIXED 2 
PRINT "PEG # Tzas2 ' Deqts Tiune (Degt> Treg (Deql> Pow 


= eel SOL Ved 
FOR I=! TO Nreg 
PRINT I$ TAEWI2),TeC12-27 


PowCl>$TABCS2).Pj e619 


4580 
4590 
$€89 


ts/M- 


4618 
4520 
4639 
4543 
4652 
4662 
4672 
4639 
4690 


NEXT I 

PRIWT LINCS) 

FRIHNT “SOARD THICKNESS=" 
K"? 

PRINT 
GOTO 4639 ! PRINT “ I 

Ege Let Toes 


SyUReSeoop I leer es 3 TREC41), ToCl e283) 7 


Tt 


BCS23, 


2199B¢Thick Be "mm AND CONDUCTIVITY S"3Kb;3 “Wat 


RB_CONY RE_CONY TE Hb" 


PRINT USING tong ,1T,Fb convel>,Re_ convsls, Tet lo-273, He Crd 


HET 1 
IMAGE DD, 48%,4°43D.40,4%> 
PRINT 

FIXED 4 
PRINT "COOLIWG AIP FLOW OF 


Vanes 975; "FT7S)9", LINC 1) 


4769 
g ec 
4712 
4723 


4730 
4749 
4758 
$760 
4778 
4730 


PRINT “INLET AIR TEMP="5 Tai 


Peni oLitic 2s, “LARGEST DIFFERE 
PRINT " 


Taras is per SEC VELS eV See Gels 


r-273;" deg C OUTLET AIR TEMPS"; Tour-2735 "4 


Df 


MCE PETWEEN ITTERATIONS ="3Err3"*2+--" 





+ Thee > 
PRINTEF IS 16 
STANDARD 
RETURH 


Depugse Hits——H"! TEMP DEBUG FOR RESISTAHLES 


RETURN ! 
Mei PO YoU WISH To HAVE # 


2", Anss 
IF UPCS(AnsfC1,1]9="N" THEN RETURN 


4798 
4300 
4318 


PRINTER I[2 9 
FIXED 5S 


P25 


LIST OF ALL THE RESISTAHITES PRINTED (NO or YES 


€9) 





THREE. IHee InLeMMALy Sols FUP THEPNELE™ 


4820 PRINT " REG RE COND RE iZONV PTOTE B RTOP F RB 
CONV" 

4830 FOR I=1 TO Nreg 

4840 ! PRINT TRBVO9.1, TABC SH, Re_cand¢1), TABCS>SRe_conucl>, TABCS), Reote_ BCI; TABS 
S>;Rrop_rcClsTABi a shellac > ‘ 

4850 PRINT TREC2), Ti Re _ condc Lo sRe_conuclosRrare BCT SProp rCT>sRb canvil)d 
4860 NEXT I 

4870 PRINTER IS 16 

4330 STANDARD 

4390 RETURN 

$928 Units:! THIS SECTION CONVEFTS FROM METER TO mt 

4910 Bdl=1600-Ed)' HEPE CORPECT UNITS FOR WSE IN GRAPHICS AHD TO REWORK ANALYSIS 
4920 Bdh=1090-Bdh 

4930 MAT 8=¢(10909-x 

43940 MAT Y=C1000)+¥% 

4950 MAT Le=°1000)4Le 

4960 MAT We=(10b5eWe 

$970 Thick b=1000*Tnick_b 

4980 AI=AI+1E5 

4990 RETUPN ! END OF Units 
5u6o0 ! 

S010 Outputs: GOSUE Error 

3029 Output:! THIS SECTION OUTPUTS TO GRAPHICS ON A BLANK BOARD 

S030 ON ERFUOR GOTO Outpute 

ses0 PLOTTER [5 “GRAPHICS” 

5SO85@ GRAPHICS 

woeO MSCALE 3,13 

seize CSIZE 2 

S830 LORG 5 

58399 MOVE 13,130 

Sue Cree (=—Saar Flou----> “ 

Slil@ CEIze 2 

5128 Bdh=Bah/tca 

Sisd Bdl=Bal’Sea 

Siem 1F Scazl THEN S220 

S7S@ LORG ¢ 

5160 LDIR PI72 

Siao MOVE 175.78 

Soom le esa 1 THEN LRSEL STH] Ss PICTURE §S 1°" SVALS(Scaee" SICE™ 
Wicvelr vec.) THEN LAZEL “THIS PICTURE IS 2h SIZE” 

53299 LORG $5 

wely LBIR 6 

5220 MOVE 196-LEN("GUTPUT DATR FOR “BRPicr lelex72,135 

ReeeeenMrel USI "KY. "OUTFUT DATA FOR “SPictlbls 

5244 MOVE 3,9 

5250 DRAW 0, Edh 

5S2¢€0 DRAW Bd1l,B3h 

S270 DRAW EBd1,2 

5230 DRAW 8,6 

meee LEHE TYPE 3 


53090 Lr=BdI/Nxr 1 LR = LENGTH GF EACH FEGION 
5319 Hr=Bdh/Hyr ! HR = HEIGHT OF ERCH PEGION 
5328 FOR [=1 TO Nxr-l 

5339 MQ Mbt ares 

5348 DRAW I-Lr, Bah 


S350 NEXT I 
5368 FOR T=1 TO Hyr-t 
53796 MOVE O, [Hr 


€108) 


EZ6 





THERNE .. THERMAL ANALYSIS FOR THERMEUES 


$3380 DRAW Bol, l*Hr 
$390 NEXT I 

$400 LINE TYFE 1 

$418 LORG 83 

$420 Nr=o 

3438 CSIZE 2.4 


$439 FOR T=1 TO Nreg 
5350 MOYE ¥¢€T).-.35<tr,YCI)+.35*Hr 
$4650 LABEL USING "K"SYAL SCID 
$479 MOVE XCT3+. 3*tr, YC19+.25¢Hr 
5489 LABEL USTHE *k" 5 Tupet: [type < I> 
5499 IF Itypecl>=0 THEN 5570 
5592 IF Tye lo-2734.95e¢ Tmaxe-203) THEN LABEL USING Selo: Ty¢l o-273 
bes) 15 13) IF TjytIo-2732 2. 25 4¢Tmax-273> THEN LABEL USING Seae; Tjcls-273 
$520 IF Powcl><21.95*Fmin THEN LABEL USIAG SsiasPauc]s 
5530 IF Pow I 2>1.GS*Fmin THEM LABEL USING Tels Powe I 
$548 LABEL USING SeloasTes.lo-e73 
53559 GOTO 55998 
iA) ! 
5Sra VASEL USING “hs 
5580 LABEL USING Selds3To<clo—-273 


5590 NEXT I 

S600 IMAGE "**",DDD.D," c” 

S610 IMAGE DDD.D." c" 

$620 IMAGE D.DID," w" 

$620 IMAGE "<+",D.DDD," Ww" 

5640 FIXED 4 

5650 DUMP GRAPHICS 

S660 PRINTER IS 9 

5670 PRINT SPAC20)," " 
S680 PRINT S$PACZa)."| ne 
S690 PRINT SPACZO:," TYPE EMPTY |" 
$700 PRINT SFACSO,"] Tgunc or 

S710 PRINT eee, POW Tbooard |" 


sree PRINT SPAC20>," Te ase 2 

S730) FRINT (oe " 

5748 PRINT LCIH« > 

S730 PRINT SPAC14°3;" FLOW FATE VELOCITY fin 2 ea ee 

5759 Pettis SING Ale “erate, Mase see" s aires "Ne Sec "ST ate—2r 3, © 


Ges C°s Tout@-2r3; "deg 2" 

$779 STANDAPD 

S780 IF Tem_301)=8 THEN FRINT Soe SS19; "LARGEST CHANGE IN FOWER BETWEEN ITTERAT 
MORiSMtee ht f= ls RID! Bes Ter = ere 

Some le Tem sol=i THEN FRINT USING SSUO5"“LAPGEST CHANGE IN TEMP BETWEEN ITTERATI 
Otismeene, Ltt — 13" Rik} OPS ae ee a UE SrE 

eee IMAGE Lin, 2d4,.4+8.¢H, 2%, 0040, SA, 24,3D.0, 5.28, 30.0, SA 

$810 IMAGE “745A,0DD,24h,00,8,00.40 

wee2o ¢ MOPE OF THE CIRCUIT DESCRIPTION CAN BE PRESENTED HEFE 

S830 PRINT LINC19, "CIRCUIT BORFD DESCRIFTION IS STORED UNDER "SCHFEC1S2> Names, 
CHESC129>) 

$848 PRINT " 





pr ithiGe> 
$850 FRINTER IS los 
S260 EXIT GRAFHICS! 
$370 RETUFH 1 END OF OUTPUT 
Sss6 ! 
S890 What nowe: GOSUE Error 
539% What now! ! THIS SECTION FRESENHTS THE VYARIQUS OFTIOHS AVAILABLE AND DIRECTS 


Cil> 


2 





THERMEO ws. THERMAL ANRLYSis Fae THEFNELES 


5918 ! PROGRAM CONTROL AS NEEDED 

$928 ON ERFOR GOTO What nowe 

$930 SS="WHAT NOW 27" 

5940 GOSUB Pagehead : 

33950 PRINT TRECIS>. "You have completed the thermal analwsrz of 2" 

~SeO PRINT TABCSR=LEN Pict lie Se: CHRB C1293 sFictlb1l S$ CHREc 129) 

S9°8 PRINT TABCIT +, "the eprions available ars listed below: 

SPSS) [AROSE (oie st ilabeia Sag Wale FHANIGE COOLING AIF FRRFRMNETERS AND PE-ANALYCE “SUHR 

$C132); Names; CHRELLZSIE"." 

3990 FRINT LINCL). TABS. "2, SENSITIVITY ANALYSIS FOR CHRANSES IN COOLING RIR PA 

RAMETERS OF teehee sti Sle Nene s, CHES C L2G. >". " 

6008 PRINT mae eee Do MAKE CRAHGES TO BORPD DESCRIPTION IN FILE NAME “5C 
) 


MRSCLS2>;Names;CHPE: 1Sse¢"." 

68190 PRINT ret: THE.S). "4+. PETEIEVE A NEW ECAP D DESCRIPTION FROM MASS STORAGE 

6020 PRINT LINC1), TABCS)D, 

6060 PRINT LIN(1), TABCS>,”" 

6040 MNap=Bomtay 

6059 Anss="1" 

6066 (HPUT "TOUF CHOICE FROM ABOVE €1,2,3,4,5,5°97",Anss 

6070 IF Ansf="BACK UP" THEN RETURN 

6080 AnselIHTCVALCAnz £) 9) 

6830 IF (Ans>8) RHD  .Ans<=5> THEN 6122 

6108 GOSUB Errin 

6118 GOTO What now 

6128 ON Ans GOSUE Pedo,3enz1, Change, Get new kev new, Terminate 

6138 IF Ans=1 THEH RETUPN 

6140 GOTO What now 

6150 Redo: RETUPN ! THIS WILL ALLOW FPESTART OF THIS PROGRAM WITH SANE BOARD 

6166 ! 

6170 Sensie:GOSUB Error 

6leo) sensi.) THis SECTION PFODUCES PLOTS OF CUTPUT VS COOLING AIR PAPAMETERS 

6198 oe EFPFOR GOTO Sensie 

6268 ="SENSITIVTY AHALY SIS" 

6218 GOSUE Pagehead 

6229 PRINT " Thiz zection allows you ta investigate the effects of variations 
in the air flow rate. “3 

6230 IF Tem_so1=1 THEN POINT “Ee igt. 
of the air are produced" 

6240 IF Tem_sols THEH PRINT "Plots of Minumum Power vs Flow rate of the air are 
produced." 

6259 PreINT " You gpecify the maximum flow rate per board (M43/42ec9 and five 

eparate “ : 

6266 PRINT “analyses are performed and the result. plotted. NOTE: selecting = tn 
aximum flow" 

6270 PRINT "that if 2venly divigable by five (5,180,287 will result in better loa 

king axes.",LINeL, ; 

62629 PRINT "These plote mav be produced on either the gereen Cwith hard copy via 
Key3) or " 

6298 PRINT “on & peripheral platter such a 
tabular" 

68309 FPSINT “output of the results at each of the airflow rates may Be produces. 

6316 PRINT 

6229 Anss="HULL" 

6338 INPUT "WHAT IS THE UPPER LIMIT ON THE AIR FLOW RATE FOR THE SENSITIVITY AHA 

LYSIS?" Aras 

6348 IF Anst="BACK_UP" THEH What now 

6350 IF Ans#="HULL" THEH &£329 


INPUT A NEW SORPD DESCRIPTION FROM THE KEVYEOARD. " 
TESNINATE Sess TON" 


a, VW 


tye 


of Maximum Junetion Temperature vs Flow Rate 


in 


the Hp S2r2n. In addition a printed 


foo 


Tt 


(12> 
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6369 
6370 
6360 
63390 
6400 
6418 
6420 
6432 


ANs=ABSCVAL (Ans $)> 

Xmax=Ans 

Xmin=v 

Nstep2(Xmax-Xminrw’§ 

Ymin=8 

Mult =180000 

IF Xmax>=.001 THEN Mult=10809 
IF Xmax>=.01 THEH Mulr=1aaa 
6440 IF Xmax>=.1 THEN Mult=l09 
6450 Ans$="N" 

6460 INPUT "DO VOU WISH TO HAVE TABULAR FESULTS 
Yo", Anst : 

6470 IF Ans$="RBACK_UP” THEN 
634528 Temprt=o 
6430 IF UPC SC Anet 
6599 GOSUB Datapa 
6510 Map=1 
6520 IF Tem_= 
6530 FOR Fair 
6540 GOTO 5655v0 

6SS@ FOR Fair=NXstep TO Xmax 
6Se0 GOSUB Cal<4 

657@ GOSUR Calel 

6530 GOSUB Cale + 

6599 GOSUB Calc2 
6699 GOSUB Cale_ 
6610 GOSUB Solve 
6620 IF Tem_sol=! THEN ‘=Tmax-273 

6639 IF Tem_z01S6 THEN ’=Pmin 

6649 IF Temprt=! THEN PRINTER I3 8 
6650 IF Temprt=1 THEN GOSUB Temp print 
6660 IF Map=1 THEN GOSUE Plor. 

6670 IF Anzs="PAITK_UP" THEN 54509 

6688 Ans=ItrteNhap=a 

66390 GRAPHICS 
6798 PEN 1 

6719 MOVE Fair.Y 
6728 LORG 5 

67380 LREEL USING 
6746 PEN 8 

6750 NEXT Fair 
67698 EXIT GRAPHICS 
6778 DUMP GRAFHICS 
6789 FRINTER [5 & 
6790 PRINT LINC2Z) 
6890 PRINTER [5 los 
6818 GOSUB Units 
6820 GOTO Wnat_now 
6830 ! 

6342 Change: ! 
6856 Map=1 
6860 PRINT FAGE 

6870 DISP “WOFRKING LOADING 
6836 LOAD "BOARDS", 1 
68390 Gert news! THIS 
6980 S#="IHFUT OF HEN 
6910 GUSUE Pagehesd 
63929 PRINT “ 
o different" 


j 


oss 
do 


en 


mourn 
' 


THEN Temprt=l 


STEF -Kstep 


STEP strep 


ul te 


Koes ee 


THis SECTION LOADS EOQARTS 
BORFDS" 


EQHED DESCRIPTION: 


C13) 


AS 


SECTION EXPLAIHS THe TWO WR 


The néw Coard Geartription may Se read 


FOR THERMELE., 


FOR ERCH OF THE RIF FLONS?<N or 


! END OF SENSI 


TO ALCeW EHHHGES TO THE CIlReuly] VeEscelry 


S$ TO GET A NEW BORRD DESCRIPTION 


yn from mass storage in tw 





THERM ws THERMAGE SBNAL YSIS FUR THERMELE.s 


6930 PRINT “programs. THERML (the program in core now) will not allow visual 
checking or" 

6940 PRINT “modification of descriptive data for the circuit board. The data is 
read itn" 

69598 PRINT “at your direction but only questioms concerning the environment exte 

Biome tomens . 

6960 PRINT "circuit board are asked. The second method of input from mass stora 
ge involes" 

6970 PRINT “the program BORFDS which allows both data checking through graphic 

$s and “" 

6930 PRINT “opportunities to modify the de: 

6930 PRINT ‘ 

Cope Pert) CIM I>), TAHE<S>, "1. FPERD A NEW BOQRFD DESCRIPTION USING THERML. no ¢ 

orrections)" 

7010 PRINT LIHCL)®, TAB.S>,"2. FEAD A HEW BORPD DESCRIPTIGN USING BOARDS. Calls 

ws corrections)” 

7020 PRINT LIN«2),” FEMEMNEER THE THERMELEX SYSTEM MUST BE IN THE DEFAULT MASS ST 

ORAGE DEVICE" 

7030 Anss="1" 

7030 INPUT “YOUR CHOICE FROM ABOVE (1,297",Anss 

7050 IF Ans$="EACK_UP" THEN What now 

7060 Ans=¥ALCANSS) 

7070 IF (Ans>@) AND ¢Ans<3> THEN 7198 

7ocU GOSUa Errin 

70398 GOTO Get_new 

7160 IF Ans=2 THEN 7130 

7110 Map=t 

7120 RETURN 

7130 ! 

7140 Map=e2 ae 

7150 DISP “WORFKING LOADING BORFDS" 

(IECTLORD “BORRDS", 1 

rire ! 

7180 Key new: ! THIS SECTION LORDS EGAFDS WITH THE INTENT TO INPUT NEW BORPD DESC 

7130 Map=3 

7200 DISP “WORKING LOADING BOARDS" 

fele LOAD "“BOREDS", ! 

(eae |! 

feoe terminates: | THIS SECTION TERMINATES THE SESSION 

7240 GCLEAF 

72350 DISP "WORKING LOADING STANDARD KE’ DEFFINITIONS" 

7260 LOAD KEY "STDIKE*" 

7279 PRINT LINC202,SPA°15>, "NORMAL TEPMINATION"™ 

72u0 PRINT LINC2),SPH.15), " THANK YOU : 

teoo UISP 

7330 END 'END OF TERMINATE 
73193 ! 

7320 Pagehead:! THIS FOUTINE PLACES THE PAGE HEADINGS FOR THE INSTRUCTIONS 

7330 PRINT PAGE, THECS4-LEWHC S23 -29, "54 “SEHRS (LSS. ,5¢;CHRSC Lass >" «4", LINCS) 

7340 RETURH 

7ea0 ! 

Reeoeerr ina THIS SECTIGN ALERTS THE USER TG AN ATTEMPT TO [NFUT ERD DeTA 

foc) BEEP 

Goeorulcr “seee<* INFUT OUT OF RANGE... ss ccceaceee TRY AGAIN" 

7390 WAIT 1506 

7469 BEEF 

7410 RETURN | END OF ERRIN 
7420 ! 


criptive data." 
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7430 
7448 
7458 
7460 
7478 
7430 
7498 
73580 
7518 
7520 
7539 


7548 
tow0 
7568 
73570 
7530 
7598 
7690 
7610 
76298 
7639 
7640 
7658 
7660 
7679 
7680 
7690 
77008 
rare) 315) 


7728 


7730 
7748 
77350 
7769 
7778 
7780 
(7139 
7890 
7819 
7328 
7832 
7848 
7850 
7369 
7370 
7839 
7898 
7908 
C2198 
7928 
(938 
7948 
7950 
7960 
7978 


THERML .. THEPNAL HNALYSIS FOF THESMELE:: 


EnEOra this SeCTILONSIS THE ERROR TRAPPING ROUTINE FOR THE ENTIRE PE&OLFAN 


PROGRAM FLOW RESUNES AT THE TOP BF THE SECTION 


| OCCURED AFTER THE WSER PRESSES CONT 
EXIT GRAPHICS 
PRINTER IS 16 
PRINT PAGE 
BEEP 
WAIT 3009 
BEEP 
IF ERRN=5S6 THEN Err_name 


IN WHICH THE EFFPOR 


PRIM? EINt24>, SPA“ 19>, “ERROR NUMBER’: ERRN? "HAS OCUPRED IN LINE”;ERRL;”. PR 
ESS CONT WHEN READY" : 


iCSle 

BEEP 

PAUSE 

RETURN 

! 

Err_name:! THIS TECTION FOR IMPROPER FILE NAME 
PRINTER IS 15 

PRINT PAGE 

MsusS="DEFRULT MASS 2TORAGE" 
FOR [=2 TY LENCHame b> 

IF NamesSCI,ITJ="2" THEN Sra 
NEXT I 

GOTO 77068 

Msuzs=NamesC I) 

CAT Msus$ 

GOTO 7719 

CAT 


PRINT LINCEs. "File Name “SCHPSCLE2Z sNameF CL. I-21; CHR $¢12595" i NOT on "30H 
RSUloe 2s tistes, CHRSCISS2S" with that apelling.csc cece” 
PRINT LINC1), "CHECK OVER THE DIPECTORY AEQVE FOR CORRECT NAME OR SPELLING... 


BSP “PRESS CONT WHEN READY” 
PAUSE 

RETURN 

Plote:GOSUB Error 

Plot: ! PLOTTING ROUTINE FOP THE AXES 
ON ERROR GOTO Plote 

ILO yiSics 10 MST a late) ess 

TF Tem_ 390129 THEN 7330 

Ystep=i0 

FOR [=o TO 7 

teeta ceer sect i@e > THEM 1Sstep=lo+l => 
NEXT I 

Pitlbls="Tjunc vs Air Flow" 
VYibls="Junc Temp ¢deg Cd" 

BOTO 73248 

Ystep=.1 

FOR I=1 TO 10 

IF Pmin>.S<€I THEN Yatep=. tec +1 
HEXT I 

PIitlbIs="Fmin ve Air Flow" 
YIbIS="MNin Power “Ccup CWatrten" 
VYmax=Se%2tep 

GRAPHICS 

BOGHiliGeele sn cia. tho 

SCALE Mmin,simas:, (min, imax 


C13 


53 


! END OF ERFOR 





THERMNL .. THERMAL ANALYSIS FOR THERMELE™ 


7990 AXES Xstep,Ystep.,Xmin, Ymin 


7990) CSIZE 
88@@ LDIR 
8610 LORG 
8820 FOR X 


8630 LABEL 
8853 NEXT 


3 
is) 


S 


pozs=\min TO Kmax STEP Xstep 
8038 MOVE Npos, Ymin-.1l¥iVstep 
USING "K"S$NposeMult 


“pos 


8Q@60 MOVE 2.5-Nste2ep,-.4-Ystep 
USING “K"S"Air-FlowsBoard C"SVALSCL-Mults&" MAS73ec>" 


88790 LABEL 
8830 LORG 


3 


890 FDR Ypos=Ymnin TO Ymax STEP Ystep 
8100 MOVE Kmin-.iecsstep, Ypas 
USING "K"S ‘pos 


Site larec 
8120 NEAT 
81398 LINE 
$149 LORG 
81590 LDIR 
8160 MOVE 
817@ LABEL 


Sian CSi2e 
8200 LDIR 
9210 CREEL 
8220 LABEL 
823@ RETUR 
824a ! 
8259 Bomb: 
8260 WAIT 
S270 BEEP 
8282 PRINT 
Ge ng he 
8238 PPINT 
8380 PRINT 
$310 PRINT 
EVEES” 
8328 PRINT 
8320. DISP 
Soo BEEF 
8350 PAUSE 
8369 DISP 
8370 Bomb= 
8380 RETUR 


Ypos 
TYPE 1 
4 

Piles 


-.4*8stzp,2.5°7step 
UStING “KS Y1b1 $s 
818@ MOVE Kmintel.SeXstanp,5.1+*¥step 


3 
3 


WSTNi "EK "Piet lels 
WS NG ee wks eibtelion 


N 


HEN OF PLOT 


Pits, =f Thai eDELIVErS MESSAGE 7) THE USEP OF FRILURE To EONVERGE 


Pa Ds iS) 


PAGE,LINC19), “UNABLE TO ACHIEVE CONVERGENCE DUS TO NUMERICAL INSTREIL 


HiGlor, 
ees 2h ae 
ED Gy ese 


LL inl ob De 


"T SUGGEST A CHANGE IN EITHEF THE INSTALLATION PARAMETERS OF” 
tego re erin Pa RAHME TERS sa.» * 
"THEPMELEX PPEDICTS TEMPERATLPES MUCH MUCH RETTEP THAN POWER L 


Pte te or eG ey IHG THE SOnPONENT FOWER LEVELS. ", CIN’ a) 


"Press CONT when ready to return to option list" 


1 
N 


! END OF BOMB 


Po2 
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